我可以为Perl中的所有信号设置单个信号处理程序吗？

Question

Perl是否可以为它收到的所有信号只安装一个信号处理程序？这背后的原因是,我不知道我的Perl代码在运行时会得到什么信号.我能看到的一种方法是将所有可用信号指向我的自定义信号处理程序,但我不想这样做.有没有简单的方法来做到这一点？就像是:

$SIG{'ALL'} = 'sigHandler';

Answer 1

你真的不想这样做.只为你需要处理的信号安装信号处理程序,而不是默认值(我们无法帮助你,因为你没有提到你正在编写什么样的应用程序).

在大多数正常情况下,您根本不必编写信号处理程序 - 默认设置为完全按照您的需要进行操作.您现在应该阅读perldoc perlipc, 以便了解您的情况与正常情况不同.

您可以使用sigtrap pragma一次修改多个信号:它对于为正常未捕获的信号添加处理程序或使正常的错误处理更严格非常有用.

# install a trivial handler for all signals, as a learning tool
use sigtrap 'handler' => \&my_handler, 'signal';
sub my_handler
{
    print "Caught signal $_[0]!\n";
}

Answer 2

$SIG{$_} = 'sigHandler' for keys %SIG;

如果你要正确对待__WARN__和__DIE__区别,

use Config;
$SIG{$_} = 'sigHandler' for split ' ', $Config{sig_name};