Sys::AlarmCall;

最新推荐文章于 2021-12-30 15:12:32 发布

zy12805

最新推荐文章于 2021-12-30 15:12:32 发布

阅读量224

点赞数

分类专栏： Perl

本文链接：https://blog.csdn.net/zhangyuan12805/article/details/53816790

版权

Perl 专栏收录该内容

44 篇文章 2 订阅

订阅专栏

perl中提供了 Sys::AlarmCall;

要求$func1函数的执行时间限制在$timeout时间内执行完：

use Sys::AlarmCall;
$result = alarm_call($timeout1,$func1,@args1);

eg1：

use Sys::AlarmCall;

sub timeoutfunc{
    print strftime("begin:%Y-%m-%d %H:%M:%S\n",localtime(time));
    sleep 4;
    print strftime("end:%Y-%m-%d %H:%M:%S\n",localtime(time));
};
alarm_call(5,'timeoutfunc')

执行结果：

begin:2016-12-22 11:00:41
end:2016-12-22 11:00:45

eg2：

sub timeoutfunc{
    print strftime("begin:%Y-%m-%d %H:%M:%S\n",localtime(time));
    sleep 7;
    print strftime("end:%Y-%m-%d %H:%M:%S\n",localtime(time));
};
alarm_call(5,'timeoutfunc')

执行结果：