Help for this page

Select Code to Download


  1. or download this
    C:\Documents and Settings\Administrator\Desktop>perl -MO=Deparse -e"pr
+int join('|', %{{ }} = (1)x100 );"
print join('|', %{{};} = (1) x 100);
-e syntax OK
  2. or download this
    C:\Documents and Settings\Administrator\Desktop>perl -MData::Dumper -e
+ "print Dumper( %{{ }} = (1) x 100);"
Bizarre copy of ARRAY in anonlist at C:/Perl/lib/Data/Dumper.pm line 4
+45.