Geschwindigkeit von Scripts prüfen - #77162 (Allgemeines zu Perl)

Strat

2003-12-28 14:01

User since
2003-08-04
5246 Artikel
ModeratorIn

dafuer gibt's das Modul benchmark, z.B.
am anfang vom Code oder vor der Aenderung:

Code: (dl )

1
2

use Benchmark;
my $benchmarkStart = Benchmark->new();

und am Ende (oder nach der Aenderung):

Code: (dl )

my $benchmarkEnd = Benchmark->new();
my $diff = Benchmark::timediff($benchmarkEnd, $benchmarkStart);
my $str  = Benchmark::timestr($diff);

my ($cpuTime, $exectime);
if ($str =~ /(\d+)\s*wallclock secs \(\s*?(\d*?\.\d*?)\s*usr\s*\+\s*(\d*?\.\d*?)\s/i) {
    $cpuTime = $2; $execTime = $1;
 #   printf ("Execution time: ~ %.0f seconds\nCPU-Time      : %.2f\n", $1, $2);
} # if
print "CPUTIME: $cpuTime, EXECTIME: $execTime\n";

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/