5

我正在使用 Term::ReadLine::Gnu 并且遇到了信号处理问题。给定下面的脚本和发送到脚本的 TERM 信号，TERM 信号的处理程序直到按下回车键后才会触发。使用 Term::ReadLine:Perl 不会发生这种情况。

我读过 Term::ReadLine::Gnu 有自己的内部信号处理程序，但坦率地说，我不知道如何使用它们。

我已经查看了http://search.cpan.org/~hayashi/Term-ReadLine-Gnu-1.20/Gnu.pm#Term::ReadLine::Gnu_Variables尝试将 rl_catch_signals 变量设置为 0，但这没有帮助. 理想情况下，我想使用 Gnu 信号处理程序，但我也会满足于禁用它们。

具体来说，我需要在收到信号后触发 TERM 处理程序，而不是等待按下回车键。

任何帮助或建议当然不胜感激！

#!/usr/bin/perl

use strict;
use warnings;
use Term::ReadLine;

$SIG{TERM} = sub { print "I got a TERM\n"; exit; };

my $term = Term::ReadLine->new('Term1');
$term->ornaments(0);
my $prompt = 'cmd> ';
while ( defined (my $cmd = $term->readline($prompt)) ) {
    $term->addhistory($cmd) if $cmd !~ /\S||\n/;
    chomp($cmd);
    if ($cmd =~ /^help$/) {
        print "Help Menu\n";
    }
    else {
        print "Nothing\n";
    }
}
4

1 回答 1

3

这是由于 perl 对信号的默认偏执处理 - 在幕后，perl 在开始readline调用之前阻止 SIGTERM 并在结束时恢复它。有关详细信息，请参阅perlipc中的延迟信号。

Term::ReadLine::Perl使用 perl 的 IO，它知道这些问题并处理它们，所以你看不到这个 bug。 Term::ReadLine::Gnu使用 C 库，它没有，所以你这样做。

您可以使用以下两种方法之一解决此问题：

  1. unsafe在运行脚本之前将环境变量 PERL_SIGNALS 设置为，如下所示：

    bash$ PERL_SIGNALS=unsafe perl readline-test.pl

    注意，BEGIN { $ENV{PERL_SIGNALS} = "unsafe"; }这还不够，它需要在 perl 本身启动之前设置。

  2. 使用POSIX信号函数：

    #~ $SIG{TERM} = sub { print "I got a TERM\n"; exit; };
use POSIX;
sigaction SIGTERM, new POSIX::SigAction sub { print "I got a TERM\n"; exit; };

    以上两种方法似乎都适用于 Linux；不能代表 Windows 或其他 unices。此外，上述两种情况都存在风险 - 有关详细信息，请参阅 perlipc。

于 2012-12-09T20:26:57.560 回答