perl计时问题？

robinylp

我想编写一个计时器：

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


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

先拜谢了！

robinylp

自己回答了：

#!/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

while (1) {}

用 sleep 不就行了？