📂Perl
🔖Perl
2021-08-06 01:09阅读: 352评论: 0推荐: 0

[ Perl ] 如何限制某段程序的运行时间

https://www.cnblogs.com/yeungchie/

关键函数

alarm

alarm.pl

#!/usr/bin/env perl
use v5.10;
use warnings;
use strict;
use POSIX qw(strftime);
say "start - ".(strftime '%Y-%m-%d %H:%M:%S',localtime);
my $timeout = 3;
eval {
local $SIG{ALRM} = sub{
say "timeout - ".(strftime '%Y-%m-%d %H:%M:%S',localtime);
die;
};
alarm $timeout;
my $count = 1;
while(1){
say $count++;
sleep 1;
}
};
say "done - ".(strftime '%Y-%m-%d %H:%M:%S',localtime);

run

> ./alarm.pl
start - 2021-08-06 01:08:35
1
2
3
timeout - 2021-08-06 01:08:38
done - 2021-08-06 01:08:38

本文作者:YEUNGCHIE

本文链接:https://www.cnblogs.com/yeungchie/p/15106751.html

版权声明:本作品采用知识共享署名-非商业性使用-禁止演绎 2.5 中国大陆许可协议进行许可。

posted @   YEUNGCHIE  阅读(352)  评论(0编辑  收藏  举报
历史上的今天:
2020-08-06 [ Skill ] 如何修改 schHiCreateWireStubs 产生的 wire 长度?

感谢支持

扫描二维码打赏

微信打赏

点击右上角即可分享
微信分享提示
评论
收藏
关注
推荐
深色
回顶
收起