在關閉文件句柄時向Perl腳本發送信號

Question

我有以下問題，我已在這兩個迷你Perl腳本中重新構建。 這是主要的腳本：

#!/usr/bin/perl 
$SIG{INT} = \&signal_handler_one; 
open(my $pipe, "|-", "/home/pa/Desktop/POC2"); 
close $pipe; 
sub signal_handler_one{ 
    print "This is expected to print\n"; 
} 

在第三行它會打開一個管道，這個腳本：

#!/usr/bin/perl 
$SIG{INT} = \&signal_handler_two; 
sleep(10); 
sub signal_handler_two{ 
    print "This isn't expected to print\n"; 
} 

的問題是，當我開始了第一個腳本，然後發送SIGINT給它，而它正在關閉第4行的管道，signal_handler_two被觸發而不是signal_handler_one。爲什麼它的行爲如此？有沒有辦法解決這個問題（我的目標是讓signal_handler_one執行）。

編輯： 我最初使用Ctrl + C在終端上發送信號，導致打印出「This is not expected to print」。但是當我使用kill從另一個終端向父進程發送信號時，它只是忽略它。

編輯2： 我終於解決它不使用開放拿到管，而是由人工分叉，execing然後等待孩子而不是僅僅調用接近 。現在一切似乎都很好。看起來這種行爲是特定於我的環境的，但如果任何人都能重現同樣的錯誤，請告訴我。

Answer 1

我無法重現您正在觀察的行爲。當我在終端按CTRL-C，兩個子和父立即接收SIGINT：

use diagnostics; 
use feature qw(say); 
use strict; 
use warnings; 

$SIG{INT} = sub { say "This is expected to print"; die }; 
my $pid = open (my $pipe, "|-", "script.pl"); 
say "PID = $pid"; 
eval { 
    say "Closing.."; 
    my $close_ok = close $pipe; # Note "close" here waits for child to exit 
    if (! $close_ok) { 
     say "Error closing: $!"; 
    } 
    else { 
     say "Close done."; 
    } 
}; 
if ($@) { 
    say "Parent caught SIGINT."; 
} 

其中script.pl是：

#! /usr/bin/env perl 

use feature qw(say); 
use strict; 
use warnings; 

$SIG{INT} = sub { die }; 
eval { 
    say "Sleeping.."; 
    for (1..5) { 
     sleep 1; 
     say $_; 
    } 
}; 
if ($@) { 
    say "Child caught SIGINT."; 
    exit; 
} 

在Ubuntu在終端運行第一程序（gnome-terminal的輸出16.04）是：

PID = 1746 
Closing.. 
Sleeping.. 
1 
2 
^CThis is expected to print 
Child caught SIGINT. 
Parent caught SIGINT. 
Uncaught exception from user code: 
    refcnt: fd -1 < 0 

請注意，有一個未捕獲的異常refcnt: fd -1 < 0。我不知道那是什麼。也許是因爲close沒有成功？