Handle SIGHUP with AnyEvent

nutris has asked for the wisdom of the Perl Monks concerning the following question:

Hello,

I am trying to use AnyEvent to handle signals (SIGHUP, SIGTERM, etc.). I think a I have to use AnyEvent since I need the process to listen to signals and filesystem events (via AnyEvent::Filesys::Notify).

According to the documentation at http://search.cpan.org/~mlehmann/AnyEvent-5.34/lib/AnyEvent.pm#SIGNAL_WATCHERS I am trying the following:

#!/usr/bin/perl

use strict;
use warnings;

use AnyEvent;

# set up event handler
my $w = AnyEvent->signal (signal => "HUP", cb => sub { print "Got SIGH
+UP, reloading..."; });

# wait for event
$done->recv;

exit 0;
[download]

Running this code on Debian Squeeze (Perl 5.10) and sending a SIGHUP to the process via kill -HUP 12345 perl just quits with the message "Hangup" spooled to STDIN.

What am I doing wrong? I would expect to see my message "Got SIGHUP, reloading..." before the exit. But the message "Hangup" makes me feel like the signal was not handled by AnyEvent but directly by perl.

Any suggestions?

Thanks.

nutris

Comment on Handle SIGHUP with AnyEvent Select or Download Code

Replies are listed 'Best First'.
Re: Handle SIGHUP with AnyEvent by moritz (Cardinal) on Aug 23, 2011 at 09:39 UTC
Maybe the first step would be to use print instead of `echo`, which doesn't exist in perl. Perl 6 - second systems done right	[reply] [d/l]
Re^2: Handle SIGHUP with AnyEvent by nutris (Initiate) on Aug 23, 2011 at 10:29 UTC
Yeah, you are - of course - right. But the problem persists with the corrected code.	[reply]
Re: Handle SIGHUP with AnyEvent by Anonymous Monk on Aug 23, 2011 at 09:40 UTC
Please post your real code. `String found where operator expected at 921850.pl line 9, near "echo " +Got SIGHUP, reloading..."" (Do you need to predeclare echo?) syntax error at 921850.pl line 9, near "echo "Got SIGHUP, reloading... +"" Global symbol "$done" requires explicit package name at 921850.pl line + 12. Execution of 921850.pl aborted due to compilation errors.` [download]	[reply] [d/l]
Re: Handle SIGHUP with AnyEvent by Neighbour (Friar) on Aug 24, 2011 at 06:50 UTC
`#!/usr/bin/perl use strict; use warnings; use AnyEvent; $\|++; my $done = AnyEvent->condvar; # set up event handler my $w = AnyEvent->signal(signal => "HUP", cb => sub { print "Got SIGHU +P, reloading...\n"; }); # wait for event $done->recv; exit 0;` [download] Works fine. Don't forget that stdout is buffered (which `$\|++` fixes.	[reply] [d/l] [select]
Re^2: Handle SIGHUP with AnyEvent by Anonymous Monk on Nov 26, 2014 at 00:40 UTC
Doesn't work for me. Running your script as is, it exits with "Terminated: 15" when sending it a SIGHUP. I came across this thread when I couldn't catch SIGALRM using AnyEvent with the EV loop, and had to resort to using a plain old perl signal handler.	[reply]


good chemistry is complicated, and a little bit messy -LW
	PerlMonks