Alex: Laufzeit von Kode messen (PERL)

Beitrag lesen

Hallo,

ich möchte gerne die Zeit einer Funktion ermitteln. Ich schreibe dann so:

#8<---------------8<--------PERL-------8<---------------

sub test1;

my $tm = 0;
my $timer_string = 0;
my $out = 0;

$tm = timethese(10000,{
'test1' => 'test1()',
});

sub test1{
$out="sssadsd\n" ;
$out.="sssadsd\n" ;
$out.="sssadsd\n" ;
}

$timer_string = timestr($tm);

#8<---------------8<--------PERL-------8<---------------
...
#8<---------------8<--------HTML-------8<---------------

<html>
<body>

$timer_string

</body>
</html>

#8<---------------8<--------HTML-------8<---------------

Und der Webserver meldet sich damit:

Software error:

Not an ARRAY reference at /usr/lib/perl5/5.6.1/Benchmark.pm line 423.

Was mache ich falsch?

Danke!