automatisieren

[Levent]

guckst du hier
http://perlbase.xwolf.de/cgi-bin/perlbase.cgi?dis.5.12

hab isch geguckt! aber script nix funktioniert:

#!/usr/bin/perl

my $timeout = 3;

my $alarm_handler;
$alarm_handler = sub{
        print "Helo world\n";
        $SIG{'ALRM'} = $alarm_handler;
        alarm $timeout;
};

$SIG{'ALRM'} = $alarm_handler;
alarm $timeout;

while(1){ }

Fehler: The Unsupported function alarm function is unimplemented at dummy.pl line 13.

PS: sorry, aber entweder war das ne blöde Anspielung von dir oder ich hab hier was falsch verstanden ;)