Help for this page

Select Code to Download


  1. or download this
    c:\@Work\Perl\monks>perl -wMstrict -MData::Dump -le
"sub func { print qq{hey @_}; }
...
hey main ho
hey main=ARRAY(0x185614c) there
hey nonny-nonny
  2. or download this
    c:\@Work\Perl\monks>perl -wMstrict -MData::Dump -le
"sub func { print qq{hey @_}; }
...
hey main he
hey main=ARRAY(0x37716c) there
zot nonny-nonny
  3. or download this
    my $str = 'aaa';
for my $alias (main::, 'main', $mainstring, $mainobj) {
  $alias->$symref($str++);
  }