Struppi: CGI Hook funktioniert nicht.

Beitrag lesen

Hat jemand eine Idee was ich falsch mache?

Meine erste Zeile im Code ist:
my $start = join(" ",times());
Meine letzten Zeilen sind

print "Content-type: text/html\n\n";

print $start;
print "<br>";

print join(" ",times());
print "<br>";

  
Ich bezweifle, dass times() die richtige Funktion dafür ist. Um eine kurze Zeitspanne zu messen ist das Modul [Time::HiRes](http://search.cpan.org/dist/Time-HiRes/HiRes.pm) wohl die bessere Wahl. Ich mach das so, dass ich direkt die Funktion time überschreibe  
  
`use Time::HiRes qw (time);`{:.language-perl}  
  
Nun gibt die Funktion time (wenn möglich) die Zeit in Mikrosekunden zurück.  
  
Struppi.