Chinaunix

标题: perl计时问题？ [打印本页]

作者: robinylp 时间: 2011-04-26 17:00
标题: perl计时问题？
我想编写一个计时器：

统计的数开始为0，开始工作！
每10分钟显示一下统计的这个数，然后归0.重新循环。

不知哪位高手给点提示。在看localtime的用法，还没有解决方法。

先拜谢了！

作者: robinylp 时间: 2011-04-26 18:45
自己回答了：

#!/usr/bin/perl -w

use strict;

$SIG{ALRM}=sub {&marine;alarm(20)};

alarm(1);

while(1){}

my $n;

sub marine {
$n += 1; #全局变量$n
print "Hello, sailor number $n!\n";
}

每20秒输出print！

作者: zhlong8 时间: 2011-04-26 20:25
while (1) {}

用 sleep 不就行了？

欢迎光临 Chinaunix (http://bbs.chinaunix.net/)