/
signals.perl
47 lines (41 loc) · 970 Bytes
/
signals.perl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
#!perl -w -I..
# $Id$
use strict;
use POE; # and you get Kernel and Session
select(STDOUT); $|=1;
my $kernel = new POE::Kernel();
new POE::Session
(
$kernel,
'_start' => sub
{
my ($k, $me, $from) = @_;
$k->sig('INT', 'signal handler');
print "Signal watcher started. Send SIGINT or SIGTERM: ";
$k->post($me, 'set an alarm');
},
'_stop' => sub
{
my ($k, $me, $from) = @_;
print "Signal watcher stopped.\n";
},
'_default' => sub
{
my ($k, $me, $from, $state, @etc) = @_;
print "Signal watcher _default gets state ($state) from ($from) ",
"parameters(", join(', ', @etc), ")\n";
return 0;
},
'set an alarm' => sub
{
my ($k, $me, $from) = @_;
print ".";
$k->alarm('set an alarm', time()+1);
},
'signal handler' => sub
{
my ($k, $me, $from, $signal_name) = @_;
print "\nSignal watcher caught SIG$signal_name.\n";
},
);
$kernel->run();