有没有办法建立一个时间计数器,使脚本的部分运行只要它滴答？例如,我有以下代码：
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");
}
解决方法
这是第二个答案,它涉及超时第二个过程的情况.使用这种情况启动外部程序并确保它不会花太长时间：
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.";
}