Time::HiRes

[Patrick Andrieu]

Hallo Siechfred!

--- schnipp ---
time ()

Returns a floating seconds since the epoch. This function can be imported, resulting in a nice drop-in replacement for the time provided with core Perl; see the "EXAMPLES" below.
--- schnapp ---

Das Problem ist dabei, dass die _Mikro_sekunden (nicht _Milli_) ungleich ausgegeben werden (mal 3, mal 4 mal 5 mal 6stellig - getestet auf Windows). Bei time() wird noch ein floating Point ausgegeben:

C:>perl
use Time::HiRes;
print Time::HiRes::time();
print $/;
print time();
^Z
1195474867.60938
1195474867

Ich habe deswegen auch mit gettimeofday() 'rumprobiert - und lasse die Perl-time() zum Vergleich ausgeben:

C:>perl -w
use Time::HiRes;
print Time::HiRes::gettimeofday();
print $/, time();
^Z
1195474686718750
1195474686
C:>perl -w
use Time::HiRes;
print Time::HiRes::gettimeofday();
print $/, time();
^Z
119547476793750
1195474767

Schreibt man beide Zahlen der Ausgabe von gettimeeofday() untereinander, sieht man's:

1195474686718750
119547476793750

Viele Grüße aus Frankfurt/Main,
Patrick