perl如何实现定时执行功能

[shootingstar_w]

我写了个定时采集服务器数据的程序，现在想每5分钟执行一次，请问在程序中如何实现。

while(1)
{
###采集程序
...

sleep(300);
}

感觉这样的话程序部分太大。别的有什么处理方法吗？比如alarm...
请问该如何实现

[xiaoyu9805119]

win下有计划任务

linux之类的有cron，自己定义一个就行了。

[jiuchang]

perl里有alarm的功能，需要和eval配合使用
示例如下：
eval {
local $SIG{ALRM} = sub { die "alarm\n" }; # NB: \n required
alarm $timeout;
$nread = sysread SOCKET, $buffer, $size;
alarm 0;
};
if ($@) {
die unless $@ eq "alarm\n"; # propagate unexpected errors
# timed out
}
else {
# didn't
}

[shootingstar_w]

[Quote=引用 2 楼 jiuchang 的回复:]
perl里有alarm的功能，需要和eval配合使用
示例如下：
eval {
local $SIG{ALRM} = sub { die "alarm\n" }; # NB: \n required
alarm $timeout;
$nread = sysread SOCKET, $buffer, $size;
alarm 0;
};
if ($@) {
die unless $@ eq "alarm\n"; # propagate unexpected errors
# timed out
}
else {
# didn't
}
[/Quote]

那是不是只要定义这样一个信号量就可以了吗，和采集程序主体是怎样联系起来的呢？

[wx红杉树]

wait
alarm
sigtrap / signal
上面的函数和模块会对你有用的


#!/usr/bin/perl
$SIG{ALRM}=\&timer;

alarm 1;
sub timer {
alarm 0;
print scalar localtime,"\n";
$SIG{ALRM}=\&timer;
alarm 1;
}

while (1) {sleep;}

[iambic]

sleep不挺好的么。什么叫程序部分太大？

[iambic]

写到一个sub里面不就完了。sleep恐怕是对程序结构（和可读性）影响最小的方法了。

[fibbery]

他所说的程序部分太大是采集的时间如果过长，那么采集周期就会超过5分钟！

你可以使用线程，将采集封装到函数，然后创建你的采集线程。

[shootingstar_w]

[Quote=引用 7 楼 iambic 的回复:]
写到一个sub里面不就完了。sleep恐怕是对程序结构（和可读性）影响最小的方法了。
[/Quote]
恩 这应该是比较好的办法了 我已经在程序中嵌套了几个SUB了 对性能会有影响吗

[Quote=引用 8 楼 fibbery 的回复:]
他所说的程序部分太大是采集的时间如果过长，那么采集周期就会超过5分钟！

你可以使用线程，将采集封装到函数，然后创建你的采集线程。
[/Quote]
可能我说的不够清楚，我是指程序代码过长。
暂时采集周期还没有超过5分钟，而且我就是通过线程采集的。还是谢谢！

[iambic]

多写sub对性能没有影响……

[shootingstar_w]

[Quote=引用 5 楼 iambic 的回复:]
sleep不挺好的么。什么叫程序部分太大？
[/Quote]

就是程序部分很长，然后还要在主程序外加while
感觉不太美观 呵呵