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 occurs 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 --sHell"; } } else { die "Could not fork."; }

大佬总结

以上是大佬教程为你收集整理的如何限制在Perl脚本的特定部分中花费的时间?全部内容,希望文章能够帮你解决如何限制在Perl脚本的特定部分中花费的时间?所遇到的程序开发问题。

如果觉得大佬教程网站内容还不错,欢迎将大佬教程推荐给程序员好友。

本图文内容来源于网友网络收集整理提供,作为学习参考使用,版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ:384754419,请注明来意。