[Date Prev][Date Next][Thread Prev][Thread Next] [Search] [Date Index] [Thread Index]

Re: [MacPerl] AppleEvents with remote addresses



At 18.29 -0500 1999.08.06, Cameron Ashby wrote:
>Can I get the system to send me an alarm event of some kind after some
>number of seconds?

#!perl -w
$|++;
$SIG{ALRM} = \&bar;
alarm(5);
sleep(10);
print "foo";

sub bar {
    printf "Caught \$SIG{$_[0]}\n";
}

-- 
Chris Nandor          mailto:pudge@pobox.com         http://pudge.net/
%PGPKey = ('B76E72AD', [1024, '0824090B CE73CA10  1FF77F13 8180B6B6'])

===== Want to unsubscribe from this list?
===== Send mail with body "unsubscribe" to macperl-request@macperl.org