为什么我的 SIGPIPE 不打印消息？

Question

$ perl5.8 -w -e 'if (my $pid=open(my $P, "|-")) {
      kill("SIGKILL",$pid); sleep(2); print $P "test1:$pid\n";}; '
Broken pipe

现在我正试图抓住那根破损的管道

$ perl5.8 -w -e '$SIG{PIPE} = sub {print "SIGPIPE\n";return 1}; 
   if (my $pid=open(my $P, "|-")) {
      kill("SIGKILL",$pid); sleep(2); print $P "test1:$pid\n"}; 
$

当我预期SIGPIPE 时，根本没有打印任何内容。似乎它将我的匿名子处理程序视为IGNORE。

• sub 的几乎任何内容都不会产生任何效果（打印、模具、更改包变量值）

• 代码不会死；如果您最终将某些内容打印到 STDOUT，它将打印。

我错过了什么？

---

更新：@jm666 的回答让我想到了这个问题：管道的写入没有被刷新；因此，现在获得 SIGPIPE 还为时过早。添加 autoflush 有帮助：

$ perl5.8 -w -e 'use IO::Handle ;$SIG{PIPE} = sub {print "SIGPIPE\n"}; 
   if (my $pid=open(my $P, "|-")) {
   $P->autoflush(1);
   kill(SIGTERM,$pid); sleep(2);;print $P "test1:$pid\n"}; '

SIGPIPE
$

Answer 1

对管道的物理写入会延迟，因此您可以在关闭时捕获它们。下一个打印消息。 （添加了close $P）

perl -w -e '$SIG{PIPE} = sub {print "SIGPIPE\n";return 1}; if (my $pid=open(my $P, "|-")) { kill("SIGKILL",$pid); sleep(2); print $P "test1:$pid\n";close $P};'

更多：http://perldoc.perl.org/perlipc.html