Re: sleep doesn't respond to sigint(2)?


Clear questions and runnable code get the best and fastest answer
	PerlMonks

Re: sleep doesn't respond to sigint(2)?

by JamesNC (Chaplain)

on Oct 17, 2003 at 20:39 UTC ( [id://300148]=note: print w/replies, xml )

Need Help??

in reply to sleep doesn't respond to sigint(2)?

Just use a smaller sleep an count or you you can use select to get a really small wait between looks like so

#!/perl/bin/perl -w 
use strict;
$SIG{'INT'} = 'cleanup';
my $c= 0;

while (1) { 
    select(undef, undef, undef, .2);
    $c++;
    if($c == 50 ){  #10 seconds
        print "checking something...\n";
    $c= 0;
    }
} 


sub cleanup {die "\nending\n";}
[download]

JamesNC