37,719
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
lgjut 2003-08-23
- 打赏
- 举报
转自chinaunix
Another use of Time::HiRes Module.
(16) Time::HiRes, sleep(), time()
代码:
#!/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;
use Time::HiRes后，此模块提供sleep(), alarm(), time()的增强版以
取代perl内置的相应函数。
其中sleep()和alarm()的参数可以是小数。比如sleep(0.1)表示休眠0.1秒，
time()可以返回浮点数。
Another use of Time::HiRes Module.
(16) Time::HiRes, sleep(), time()
代码:
#!/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;
use Time::HiRes后，此模块提供sleep(), alarm(), time()的增强版以
取代perl内置的相应函数。
其中sleep()和alarm()的参数可以是小数。比如sleep(0.1)表示休眠0.1秒，
time()可以返回浮点数。
