Perl
发布时间:2022-04-04 发布网站:大佬教程 code.js-code.com
大佬教程收集整理的这篇文章主要介绍了如何限制在Perl脚本的特定部分中花费的时间?,大佬教程大佬觉得挺不错的,现在分享给大家,也给大家做个参考。
有没有办法建立一个时间计数器,使脚本的部分运行只要它滴答?例如,我有以下
代码:
for my $i (0 .. $QUOTA-1) {
build_dyna_file($i);
comp_simu_exe;
bin2txt2errormap($i);
}
从理论上讲,我想运行这个循环3分钟,即使循环指令尚未完成,它仍然应该在3分钟后突破循环.
实际上,程序打开一个时间计数器窗口,它与脚本的一部分并行工作(每次调用它).
此外,子调用’comp_simu_exe’运行外部模拟器(在sHell中),当超时结束时 – 此过程也必须被杀死(不要假设在一段时间后返回).
sub comp_simu_exe{
system("simulator --sHell");
}
系统函数调用之间是否有任何关联?
解决方法
这是第二个答案,它涉及超时第二个过程的情况.使用这种情况启动外部程序并确保它不会花太长时间:
@H_807_2
@my $timeout = 180;
my $pid = fork;
if ( defined $pid )
{
if ( $pid )
{
# this is the parent process
local $SIG
{ALRM} = sub
{ die "TIMEOUT" };
alarm 180;
# wait until child returns or timeout oc
curs
eval
{
waitpid( $pid,0
);
};
alarm 0;
if ( $@ && $@ =~ m/TIMEOUT/ )
{
# timeout,kill the child process
kill 9,$pid;
}
}
else
{
# this is the child process
# this call will never return. Note the use of exec instead of system
exec "simulator --s
Hell";
}
}
else
{
die "Could not fork.";
}
大佬总结
以上是大佬教程为你收集整理的如何限制在Perl脚本的特定部分中花费的时间?全部内容,希望文章能够帮你解决如何限制在Perl脚本的特定部分中花费的时间?所遇到的程序开发问题。
如果觉得大佬教程网站内容还不错,欢迎将大佬教程推荐给程序员好友。
本图文内容来源于网友网络收集整理提供,作为学习参考使用,版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ:384754419,请注明来意。