Re^4: negative elapsed time? (versions?)


The stupid question is the question not asked
	PerlMonks

Re^4: negative elapsed time? (versions?)

by saneel (Initiate)

on Aug 08, 2011 at 15:38 UTC ( [id://919263]=note: print w/replies, xml )

Need Help??

in reply to Re^3: negative elapsed time? (versions?)
in thread negative elapsed time?

I using Windows 7. My library version is 1.9721

Comment on Re^4: negative elapsed time? (versions?)

Replies are listed 'Best First'.

Re^5: negative elapsed time? (versions?)
by BrowserUk (Patriarch) on Aug 08, 2011 at 15:44 UTC

Please cut&paste the output from this modified version of your script

#!/usr/bin/perl -w
use strict;
use Win32;
use Time::HiRes;

print $], "\n", $Time::HiRes::VERSION, "\n", Win32::GetOSName();

print "\nStarting loop\n";
for ( 1..1e6 ) {

   my $t3 = Time::HiRes::time();
   my $t4 = Time::HiRes::time();
   my $t5 = $t4 - $t3;

   if( $t5 <= 0 ) {
       print "\n Value negative in count: $_";
       print "\n t3: "; printf "%.6f",$t3;
       print "\n t4: "; printf "%.6f\n",$t4;
       print "\n Negative or zero value: $t5";
   }
}
print "\nEnd of loop\n";
[download]

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.

"Science is about questioning the status quo. Questioning authority".

In the absence of evidence, opinion is indistinguishable from prejudice.

[reply]
[d/l]

In Section Seekers of Perl Wisdom