Senden eines Signals an ein Perl-Skript, während es ein Dateihandle schließt

Question

Ich habe das folgende Problem, das ich in diesen beiden Mini-Perl-Skripten rekonstruiert habe. Dies ist das Hauptskript:

#!/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"; 
} 

In der dritten Zeile es ein Rohr zu diesem Skript öffnet:

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

Das Problem ist, dass, wenn ich das erste Skript zu starten und dann SIGINT an ihn schicken, während es schließt die Leitung auf Leitung 4, der signal_handler_two wird anstelle von signal_handler_one ausgelöst. Warum verhält es sich so? Gibt es einen Weg dazu (mein Ziel ist es, signal_handler_one zur Ausführung zu bringen).

Bearbeiten: Ich habe ursprünglich das Signal auf dem Terminal mit Strg + C gesendet, was bewirkt, dass "Dies wird nicht erwartet zu drucken" zu drucken. Aber wenn ich das Signal mit kill zum Elternprozess von einem anderen Terminal aus aussende, ignoriert es es einfach.

Edit 2: Ich löste es schließlich von nicht offen mit der Leitung, sondern durch manuelle Forking, execing und dann statt Aufruf von nur Nähe auf dem Kind warten, um zu bekommen . Jetzt scheint alles gut zu funktionieren. Es scheint, dass dieses Verhalten für meine Umgebung spezifisch war, aber wenn jemand diesen Fehler reproduzieren könnte, lass es mich wissen.

Answer 1

Ich kann das Verhalten, das Sie beobachten, nicht reproduzieren. Als ich CTRL-C im Terminal drücken, sowohl das Kind und die Eltern sofort erhält 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."; 
} 

wo script.pl ist:

#! /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; 
} 

der Ausgang des ersten Programms in dem Terminal läuft (gnome-terminal auf Ubuntu 16.04) ist:

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 

Beachten Sie, dass es eine abgefangene Ausnahme ist refcnt: fd -1 < 0. Ich habe keine Ahnung, was das ist. Vielleicht weil close nicht erfolgreich war?