Select Code to Download

C:\test>perl -e"print 'x' x 1024 . '~' for 1..37*1024; print 'x'" > hu
+ge.file

...
18/03/2010  23:58        38,835,201 huge.file

C:\test>\perl32\bin\perl -e" @{ $h{lines } } = split'~', <>" huge.file

C:\test>perl -e"print 'x' x 32 . '~' for 1..37*32*1024; print 'x'" > h
+uge.file

...
19/03/2010  00:06        40,009,729 huge.file

C:\test>\perl32\bin\perl -e" @{ $h{lines } } = split'~', <>" huge.file

perl -e"local $/ = '~'; push @{ $h{lines } }, $_ while <>; <STDIN>" hu
+ge.file