在Perl中干净地捕获信号

在Perl中，可以使用%SIG哈希表来捕获信号。%SIG哈希表中的键是信号名称，值是对应的信号处理器。以下是一个简单的示例，演示如何在Perl中干净地捕获信号：

#!/usr/bin/perl

use strict;
use warnings;

# 定义信号处理器
sub signal_handler {
    my $signal = shift;
    print "捕获到信号：$signal\n";
    exit 0;
}

# 捕获INT信号
$SIG{INT} = \&signal_handler;

# 等待信号
while (1) {
    print "等待信号...\n";
    sleep 1;
}

在这个示例中，我们定义了一个名为signal_handler的信号处理器，它接收一个信号作为参数，并在捕获到信号时打印信息并退出程序。然后，我们将$SIG{INT}设置为signal_handler，以便在捕获到INT信号时调用它。最后，我们使用一个无限循环来等待信号。

这个示例展示了如何在Perl中干净地捕获信号，并在捕获到信号时执行特定的操作。