我正在使用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";
}
}
解决方法
这是由于perl默认的偏执处理信号 – 在幕后,perl在启动readline调用之前阻塞SIGTERM并在完成后恢复它.有关详细信息,请参阅
Deferred Signals in perlipc.
Term :: ReadLine :: Perl使用perl的IO,它知道这些问题并处理它们,所以你没有看到它的错误. Term :: ReadLine :: Gnu使用C库,但没有,所以你这样做.
>在运行脚本之前将环境变量PERL_SIGNALS设置为unsafe,如：
bash$PERL_SIGNALS=unsafe perl readline-test.pl
注意,BEGIN {$ENV {PERL_SIGNALS} =“不安全”;还不够,它需要在perl本身启动之前设置.
>使用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.