Help for this page

Select Code to Download


  1. or download this
    my @a = ('a0'..'a9'); 
unshift @a, \$a[2]; 
print Dump \@a;
  2. or download this
    $ARRAY1 = [
            'R: $ARRAY1->[3]',
...
            'a9'
          ];
$ARRAY1->[0] = \$ARRAY1->[3];
  3. or download this
    Rle(1) Alias Got: 
$ARRAY1 = [ 
...
alias_av(@$ARRAY1, 7, $ARRAY1->[6]); 
alias_av(@$ARRAY1, 8, $ARRAY1->[6]); 
EXPECT