पर्ल: सिग्नल हैंडलर में बंद उपप्रोसेस पाइप लटकता है?

Question

मुझे एक स्क्रिप्ट पर टाइमआउट करने की आवश्यकता है जो आईओ को अवरुद्ध कर रहा है।
हैरानी की बात यह exit रुक जाता है पता चला है, अगर वहाँ एक उपप्रक्रिया के लिए एक खुला पाइप है: कोई open कॉल यह काम करता है के साथ

#!/usr/bin/perl                        
(-f "foo") || die "file foo doesn't exist"; 
open(IN, "tail -f foo |"); 

$SIG{ALRM} = sub 
{ 
    print "trying to exit...\n"; 
    exit 0;  # Hangs with above open() call 
}; 
alarm 1; 

while (1) 
{ 
    sleep 5; # Do stuff ... 
} 

, दुर्भाग्य से हटाने के लिए यह इस मामले स्क्रिप्ट इसकी आवश्यकता है में एक विकल्प नहीं है।

लगता exit तरह filehandle बंद करने के लिए कोशिश कर रहा है और यह है कि क्या व्यतीत कर रहा है है: मुझे लगता है कि यह एक संकेत हैंडलर अंदर से बच्चे को उठा के बारे में भी खुश नहीं है

$SIG{ALRM} = sub 
{ 
    print "trying to close...\n"; 
    close(IN);   # Hangs ... 
    print "ok\n"; 
    exit 0; 
}; 

...

करता है किसी को इस के आसपास एक अच्छा तरीका पता है?

Answer 1

संकेत हैंडलर एक रेड हेरिंग है, close परवाह किए बिना अवरुद्ध कर देगा:

my $subprocess = open my $foo, "tail -f foo |" or die "Can't open process: $!"; 

say "subprocess=$subprocess"; 

kill 'KILL', $subprocess; 

close $foo;  # <--- happy now 

Answer 2

POSIX::_exit() का उपयोग करके मैन पेज पृष्ठ की तरह सीधे इस विशेष मुद्दे के आसपास काम करने लगता है। लेकिन यह ए-बी समस्या की गंध करता है। क्या आप सुनिश्चित हैं कि सादे पाइप की तुलना में उपप्रोसेसेस को संभालने का एक अधिक परिष्कृत तरीका उपयोग करके आपकी असली समस्या बेहतर हल नहीं होती है, उदाहरण के लिए IPC::Run?