Help for this page

Select Code to Download


  1. or download this
    C:\test>perl -le"printf qq[key%07d*value\n], $_ for 1 .. 20e6" >bigfil
+e

C:\test>dir bigfile
11/04/2012  04:34       370,000,001 bigfile
  2. or download this
    C:\test>perl -F\* -anle"$h{$F[0]}=$F[1] }{ print `tasklist /nh /fi \"p
+id eq $$\"`" bigfile

perl.exe                      3140 Console                    1  4,509
+,624 K
  3. or download this
    open my $out, '>', 'bigfile' or die $!;
my $l = 0;
...

my $filesize = -s 'bigfile';
say 'File size: ', $filesize;