Help for this page

Select Code to Download


  1. or download this
    foreach $ralias (@{$refarrayptr})
{
...

    $ralias = ${$reference}[0];
}
  2. or download this
      DB<43> x $refarrayptr
0  ARRAY(0x9bfef4c)
   0  'key'
  DB<44>
  3. or download this
      
DB<48> x $refarrayptr
0  ARRAY(0x9bfef4c)
   0  'a'
DB<49>
  4. or download this
    ./testprob.pl
Initial content of ARRAY(0x9ead350) -> key
Final content of ARRAY(0x9ead350) -> a
  5. or download this
    #!/usr/bin/perl

...
    
    print "Final content of $refarrayptr -> " . @{$refarrayptr}[0] . "
+\n";
}