Time::HiRes模块中sleep的使用

时间：2010-10-29 来源：scrit

今天看到以前同事写的脚本用到Time::HiRes模块，在网上找了一圈，又到CAPN上找了模块说明，这次我主要用到的是sleep，下面是在一个百度博客上转载的信息，方便学习
perl中的模块使用---(16)Time::HiRes，sleep(),time() - [perl]2009-09-21Tag：
版权声明：转载时请以超链接形式标明文章原始出处和作者信息及本声明
http://lanseyuji.blogbus.com/logs/46897292.html

#!/usr/bin/perl

use strict;
use Time::HiRes qw(sleep time);
$| = 1;
my $before = time;
for my $i (1..100)
{
print "$i\n";
sleep(0.01);
}
printf("time used : %.5f seconds\n", time - $before);
exit 0;

分析： 1 $| 输出缓冲区开关，默认为0，即关 2 高分辨率的alarm、sleep、gettimeofday、内置计时器 3 use Time::HiRes qw( usleep ualarm gettimeofday tv_interval nanosleep
clock_gettime clock_getres clock_nanosleep clock
stat ); 4 use Time::HiRes后，此模块提供sleep(), alarm(), time()的增强版以取代perl内置的相应函数。
其中sleep()和alarm()的参数可以是小数。比如sleep(0.1)表示休眠0.1秒，time()可以返回浮点数。
更多参考：http://search.cpan.org/~jhi/Time-HiRes-1.9719/HiRes.pm

相关阅读更多 +