A
Anonymous user
Hello,
i'm a complete newB in perl especialy for references. I would like to
be able to modify some array elements through reference, because i
don't want a new array.
I would like to make the following script work:
------------------------------------------------------>8
#!/usr/bin/perl
use strict;
use warnings;
my @array = ( "1", "2", "3" ); # array of elements
print("before, element 1 = $array[1]\n");
my @refs = \(@array); # array of element references
my $elt_1 = $refs[1]; # reference on 2nd array element
print("before, element 1 = $elt_1\n"); # should print "2"
$elt_1 = "changed"; # should modify the array
print("after, element 1 = $array[1]\n"); # should print "changed"
------------------------------------------------------>8
by should i mean "i'd like to"
TIA for your help
i'm a complete newB in perl especialy for references. I would like to
be able to modify some array elements through reference, because i
don't want a new array.
I would like to make the following script work:
------------------------------------------------------>8
#!/usr/bin/perl
use strict;
use warnings;
my @array = ( "1", "2", "3" ); # array of elements
print("before, element 1 = $array[1]\n");
my @refs = \(@array); # array of element references
my $elt_1 = $refs[1]; # reference on 2nd array element
print("before, element 1 = $elt_1\n"); # should print "2"
$elt_1 = "changed"; # should modify the array
print("after, element 1 = $array[1]\n"); # should print "changed"
------------------------------------------------------>8
by should i mean "i'd like to"
TIA for your help