我正在尝试捕获超时异常IPC::Run在 Windows 10 上（使用 Strawberry Perl 版本 5.30.1）：
use strict;
use warnings;
use feature qw(say);
use Data::Dumper;
use IPC::Run qw(run timeout);
my $timeout = 3;
my $cmd = ['perl', '-E', "sleep 5; say 'stdout_text'; say STDERR 'stderr_text'"];
my $in;
my $out;
my $err;
my $result;
eval {
$result = run $cmd, \$in, \$out, \$err, timeout($timeout );
};
if ( $@ ) {
say "Timed out: $@";
}
else {
print Dumper({ out => $out, err => $err});
}
上述程序在 3 秒后终止：
Terminating on signal SIGBREAK(21)
如何捕获 Perl 脚本中的超时异常？
也可以看看this issue.
感谢@zdim！您需要安装一个信号处理程序BREAK信号。以下作品：
use strict;
use warnings;
use feature qw(say);
use Data::Dumper;
use IPC::Run qw(run timeout);
my $timeout = 3;
my $cmd = ['perl', '-E', "sleep 4; say 'stdout_text'; say STDERR 'stderr_text'"];
my $in;
my $out;
my $err;
my $result;
{
local $SIG{BREAK} = sub { die "Got timeout signal" };
eval {
$result = run $cmd, \$in, \$out, \$err, timeout($timeout );
};
}
if ( $@ ) {
say "Timed out: $@";
}
else {
print Dumper({ out => $out, err => $err});
}
Output:
> perl p.pl
Timed out: Got timeout signal at p.pl line 14.
本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)
