Help for this page

Select Code to Download


  1. or download this
    #! perl -slw
use strict;
...
    printf "Shared hashrefs: %.3f\n",
        ( Win32::GetTickCount() - $start ) / 1000;
}
  2. or download this
    c:\test>TQ-b -H=200 -N=10000
Unshared hashrefs: 10.857
join/split: 3.121
freeze/thaw: 0.686
Shared hashrefs: 0.265
  3. or download this
    c:\test>TQ-b -H=2000 -N=10000
Unshared hashrefs: 117.532
join/split: 30.482
freeze/thaw: 2.886
Shared hashrefs: 0.250