Help for this page

Select Code to Download

Select or download this

sub ShowGrowth
{   use Devel::Size qw(total_size);
...
    print $DLOG "\%BigHash: ",total_size(\%BigHash),"  No of keys: $no
+keys\n";
    print $DLOG "\@BigArray: ",total_size(\@BigArray), " No of element
+s: $noitems\n";
}

Select or download this

    print $DLOG "\$BigScalar: ",total_size(\$BigScalar)," Addr: ",\$Bi
+gScalar,"\n";