Help for this page

Select Code to Download


  1. or download this
    sub func1 { my $x; print(\$x, "\n"); return \$x }
sub func2 { my $x; print(\$x, "\n"); return }
...
push @a, func1() for 1..5; print("\n");
         func1() for 1..5; print("\n");
         func2() for 1..5; print("\n");
  2. or download this
    SCALAR(0x226d1c)
SCALAR(0x225ffc)
...
SCALAR(0x1830910)
SCALAR(0x1830910)
SCALAR(0x1830910)