Displaying 1 result from an estimated 1 matches for "tmon".
Did you mean:
mon
2008 Aug 29
0
Slow perl on CentOS - ActivePerl as a solution
...y $i=0; $i<50000; $i++) {
$h{$i} = bless [ ] => 'main';
print STDERR '.' if $i % 1000 == 0;
}
print "\n";
[vamo at argon ~]$ /opt/ActivePerl-5.8/bin/perl -d:DProf test.pl
..................................................
[vamo at argon ~]$ dprofpp tmon.out
Total Elapsed Time = 0.199955 Seconds
User+System Time = 0.189955 Seconds
Exclusive Times
%Time ExclSec CumulS #Calls sec/call Csec/c Name
5.26 0.010 0.010 2 0.0050 0.0050 main::BEGIN
0.00 - -0.000 1 - - overload::OVERLOAD
0.00 - -0.000 1...