language: Perl (perl 5.16.2)
date: 217 days 15 hours ago
link:
visibility: public 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

use warnings;
use strict;
 
my @array = (1,2,3,4,5);
my $v = 1;
 
sub by_ref 
{
    my ($array_ref,$v) = @_;  
    print "printing: @$array_ref[1]\n";
    @$array_ref = (0,0,0);
    print "Array inside by_ref: @$array_ref\n"; 
}
my @b = @array;
by_ref(\@b,$v);
@array = @b;
 
print "Array changed: @array\n";