Anonymous user
Handle a signal: Difference between revisions
→{{header|Perl}}: working example
(→{{header|Perl}}: working example) |
|||
Line 235:
for (my $n = 0 ;; sleep 2)
{print ++$n, "\n";}</lang>
This example does the required task:
<lang perl>use 5.010;
use AnyEvent;
my $start = AE::time;
my $exit = AE::cv;
my $int = AE::signal 'INT', $exit;
my $n;
my $num = AE::timer 0, 0.5, sub { say $n++ };
$exit->recv;
say AE::time - $start, " seconds";</lang>
=={{header|PHP}}==
| |||