perl如何实现定时执行功能

2008-05-28 01:38:25 1.2k 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

shootingstar_w 墨衍会员 · AI 创作全网分发关注 + 加入社区

Perl语言的循环实现 Perl（Practical Extraction and Report Language）是一种高效、灵活且功能强大的编程语言，广泛应用于文本处理、系统管理、网络编程等多个领域。其简洁的语法以及强大的正则表达式支持，使得Perl在数据处理和脚本编写方面表现得尤为出色。本文将深入探讨Perl语言中的循环实现，包括多种循环结构的使用及其特点，并通过示例代码进行详细说明。阅读详情

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



while(1)

{

###采集程序

...



sleep(300);

}

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

...全文

Arcmap计算土方量教程 1. 创建现状TIN 结果数据： 2. 创建设计TIN 结果数据：注意：现状TIN和设计TIN构建时候的坐标系不同，设置坐标系见最后的注意事项第1点，就是import(导入)那步骤，现状TIN构建时选择高程点数据或者等高线数据，设计TIN构建时候选择洱海面数据 3. TIN转栅格改成你要存的数据库，注意中间不要有汉字结果数据（设计TIN转栅格的同理） 4. 裁剪现状TIN转成的栅格结果数据： 5. 计算土方量结果数据： ... 阅读详情

shootingstar_w

脚本语言 37,737 成员 34,208 内容

+ 关注 + 加入社区

切换为时间正序

shootingstar_w 2008-05-29

打赏
举报

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

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

iambic 2008-05-29

打赏
举报

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

shootingstar_w 2008-05-29

打赏
举报

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

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

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

fibbery 2008-05-29

打赏
举报

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

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

iambic 2008-05-29

打赏
举报

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

iambic 2008-05-28

打赏
举报

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

wx红杉树 2008-05-28

打赏
举报

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;}

shootingstar_w 2008-05-28

打赏
举报

[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]

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

jiuchang 2008-05-28

打赏
举报

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
}

xiaoyu9805119 2008-05-28

打赏
举报

win下有计划任务

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

perl如何实现定时执行功能

相关推荐