perl 调用 shell——中断 ^C 停止 shell，而不是 perl

Question

我想使用 Perl 脚本来批处理由 system() 调用的重复操作。当出现问题并且我想中断此脚本时，^C 会被 shell 捕获，停止任何作业，而 Perl 脚本会愉快地进行下一个作业。

有没有办法可以调用作业以便中断将停止 Perl 脚本？

Answer 1

您可以检查$?来查看系统执行的命令是否因信号2（INT）而终止：

这是解析$?的完整示例：

my $rc=system("sleep 20"); 
my $q=$?; 
if ($q == -1) { 
    print "failed to execute: $!\n"
} elsif ($? & 127) { 
    printf "child died with signal %d, %s coredump\n",  
           ($q & 127), ($q & 128) ? 'with' : 'without';
} else { 
    printf "child exited with value %d\n", $q >> 8;
}
# Output when Ctrl-C is hit: 
# child died with signal 2, without coredump

因此，您想要的确切检查是：

my $rc=system("sleep 20"); 
my $q=$?; 
if ($q != -1 &&  (($q & 127) == 2) && (!($? & 128))) { 
        # Drop the "$? & 128" if you want to include failures that generated coredump
    print "Child process was interrupted by Ctrl-C\n";
}

参考文献：perldoc system for $? 处理和 system() 调用； perldoc perlvar 了解有关 $? 的更多详细信息

Answer 2

您没有检查system的返回值。添加到您的父程序：

use autodie qw(:all);

它的程序将按预期中止：

"…" died to signal "INT" (2) at … line …

您可以使用 Try::Tiny 以便自行清理或使用不同的消息。