How to pause 10ms in perl

[fz315]

Hi: anyone know how to pause 10ms in perl script? sleep command just pause seconds. Thanks a lot.

[legato]

If you use Time::HiRes and export its sleep, you can sleep in fractional seconds. A 10ms sleep would work like this:

#!/usr/bin/perl -w
use strict;
use Time::HiRes ('sleep');

print STDERR 'Pausing:';
sleep(0.01); ## Sleep for 1/100th of a second (10ms)
print STDERR 'done',"\n";

It's worth mentioning that this isn't guaranteed to be ultra-accurate.

[sweetblood]

check out perldoc -f select
Also have a look at Time::HiRes

[davis]

According to perldoc -f sleep:

For delays of finer granularity than one second, you may use
Perl's "syscall" interface to access setitimer(2) if your sys-
tem supports it, or else see "select" above. The Time::HiRes
module (from CPAN, and starting from Perl 5.8 part of the stan-
dard distribution) may also help.

[premchai21]

From the docs for sleep (with minor reformatting):

For delays of finer granularity, you may use Perl's syscall interface to access setitimer(2) if your system supports it, or else see select above. The Time::HiRes module (from CPAN, and starting from Perl 5.8 part of the standard distribution) may also help.

Following the reference to select, we find:

You can effect a sleep of 250 milliseconds this way:

select(undef, undef, undef, 0.25);

Note that whether select gets restarted after signals (say, SIGALRM) is implementation-dependent.

Please try reading the perldocs before asking questions here.

[Anonymous Monk]

I always use

for(1 .. 10000) { 1; }

...what, why is everyone staring at me?

[BUU]

Wassercrats?!