Help for this page

Select Code to Download


  1. or download this
    c:\test>perl -E"printf qq[%014d: %014d\n], $_, $_ for 1..262144" >junk
    +.dat
    
    ...
    c:\test>perl -MDevel::Size=total_size 
    -E"local$/; my %h = split ': ', <>; print total_size \%h;" junk.dat
    12489744