作者giacch (小ａ)
看板Perl
标题Re: [问题]请问perl实作timer的问题?
时间Wed Jan 7 23:52:06 2009
※ 引述《albertliao (~咖啡瘾君子~)》之铭言：
: dear all:
: 小弟我最近要用到一个回圈,当10秒内某个条件未达成便停止,但我找个很久似乎
: perl好像没有提供timer的module可以让我去计数时间,请问若要用到timer的功能一定要
: 自己用C写在弄成module去call吗,请问有没有已经有公开的module可以使用或是相关的
: 资讯
: 谢谢
可以使用 time() 但是会有误差 (精准度只到秒)
#!/usr/bin/perl
$Stamp = time();
print "\n";
for(;;) {
print "\e[A", (time() - $Stamp), "\n";
last if( time() - $Stamp > 9 );
}
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 118.232.172.163
1F：推 LiloHuang:如果要用这种方式 可使用 Time::HiRes 模组达到高精度 01/07 23:54