[perl] hires::time NOK in win32

[Verwijderd]

Wil een ping response in µseconden
Normaal volgens de cpan docs zou dit in linux mogelijk zijn met de Tim::hires module

Helaas geeft dit scriptje

#!/usr/bin/perl

use Time::HiRes qw(gettimeofday tv_interval);
my $start_time = [ gettimeofday ];
sleep(2.1212121212);
my $end_time = [ gettimeofday ];
my $elapsed = tv_interval($start_time,$end_time);
print $elapsed;

exit;


een resultaat van 2.003 (dus geeft geen 6 decimalen en kan met gevolg maar tot milliseconden gaan)

Weet iemand een oplossing voor dit probleem, bedoeling is toch statistieken te hebben van een rack met servers die intern in rack gepinged worden... gewone ping rond alles onder de 10ms af op 10ms..nogal dom

Weet iemand een solution om toch eventueel via een andere weg tot microseconden te geraken ? Mag ook een dos util zijn ofzo, dan gebruik ik wel system();

thanks

[Verwijderd]

probleem opgelost als volgt

t0=gettimeofday();
---some code---
t1=gettimeofday();

diff=t1-t0;

dit geeft het gewenste resultaat