On Wed, Apr 1, 2009 at 08:48, Kelly Jones <kelly.terry.jo...@gmail.com> wrote:
> I want a script that constantly accepts user input, but runs a
> subroutine every second to do other work. My attempt:
>
> $|=1; $SIG{'ALRM'}= "\&alarm_sub"; &alarm_sub;
> while (<>) {print "You typed: $_\n";}
> sub alarm_sub {print "ALARM!\n"; alarm 1; return;}
>
> fails miserably. What's the right way to do this?
snip
You are never setting the first alarm. Also, since you are planning
on sharing variables with the handler, it is probably better to use a
closure than a function:
#!/usr/bin/perl
use strict;
use warnings;
my $wait = 1;
local $SIG{ALRM} = sub {
print "in alarm\n";
alarm $wait;
};
alarm $wait;
while (my $line = <>) {
print "You said: $line\n";
}
--
Chas. Owens
wonkden.net
The most important skill a programmer can have is the ability to read.
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
