[ 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 中国大陆许可协议进行许可。
分类:
标签:
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】凌霞软件回馈社区,博客园 & 1Panel & Halo 联合会员上线
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步
2020-08-06 [ Skill ] 如何修改 schHiCreateWireStubs 产生的 wire 长度?