Opened by styx-cc at 2006-12-13 19:41
User since
2006-05-20
533 Artikel
BenutzerIn
2006-05-20
533 Artikel
BenutzerIn
Hallo, ich versuche gerade ein Netzwerkscript zu schreiben, was alle 15 min. einen Ping an einen Server schickt, in der Zwischenzeit aber auch andere aufgaben erledigt, natuerlich..
Ich versuche es mit $SIG{ALARM}, allerdings wird in dem Beispiel nicht nach 5 Sekunden abgebrochen, sondern man kann weiterhin eine Eingabe taetigen..
Spaeter will ich das natuerlich so umbauen, das ich als Sub fuer den ALRM eine Routine fuer den Ping angebe.
P.s.: WinXP prof. SP2, perl 5.8.8\n\n
<!--EDIT|styx-cc|1166031797-->
Ich versuche es mit $SIG{ALARM}, allerdings wird in dem Beispiel nicht nach 5 Sekunden abgebrochen, sondern man kann weiterhin eine Eingabe taetigen..
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
use strict;
use warnings;
print STDERR "Geben sie ein Passwort ein: ";
my $pwd =
eval {
local $SIG{ALRM} = sub { die "pwd-timeout\ n"};
alarm(5);
return <STDIN>;
};
alarm(0);
print STDERR "Zeit abgelaufen" if $@ =~ /pwd-timeout/;
Spaeter will ich das natuerlich so umbauen, das ich als Sub fuer den ALRM eine Routine fuer den Ping angebe.
P.s.: WinXP prof. SP2, perl 5.8.8\n\n
<!--EDIT|styx-cc|1166031797-->
Pörl.