Re: How to sleep 1 microsecond?

use Time::HiRes qw(time);
my $until = time + 0.00_001;
1 while time < $until;
[download]

perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'

Comment on Re: How to sleep 1 microsecond? Download Code

Replies are listed 'Best First'.
Re^2: How to sleep 1 microsecond? by sophate (Beadle) on Aug 18, 2012 at 10:42 UTC
Thanks. This works pretty well :-) But just wondering why the smallest unit for time() is 0.00_001 but not 0.000_001?	[reply]
Re^3: How to sleep 1 microsecond? by tobyink (Canon) on Aug 18, 2012 at 11:27 UTC
Meh, did I only do a one-hundred-thousandth of a second? Always getting my decimal places mixed up! Use whatever fraction of a second you like, but be aware of the limits of floating point numbers. `perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'`	[reply]