Help for this page

Select Code to Download


  1. or download this
    c:\test>perl -MDevel::Size=total_size -MStorable=dclone,store 
-E"$#AoH=5e3; $AoH[$_] = dclone \%ENV for 0..$#AoH-1; <>; 
...

c:\test>dir junk.dat
10/04/2010  13:20         9,090,025 junk.dat
  2. or download this
    c:\test>perl -MDevel::Size=total_size -MStorable=dclone,retrieve 
-E"$AoH = retrieve 'junk.dat';<>;print total_size( $AoH );<>"
9842331