fork download
copy 
  1. #!/usr/bin/perl
  2. sub alterazione_array
  3. {
  4.   local (*a) = $_[0];
  5.   $a[0] = 1;
  6.   $a[1] = 2;
  7. }
  8.  
  9. local ($b) = ();
  10.  
  11. $b[0] = 9;
  12. $b[1] = 8;
  13. $b[2] = 7;
  14.  
  15. &alterazione_array (\@b);
  16.  
  17. print STDOUT $b[0] . " " . $b[1] . " " . $b[2] . "\n";
  18.  
Success #stdin #stdout 0s 4596KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
1 2 7
https://ideone.com/R3cXT
language:
Perl (perl 5.28.1)
created:
12 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!