Leser: 1
|< 1 2 >| | 11 Einträge, 2 Seiten |
1 2 3 4 5 6 7 8 9
my $start = time(); while (time()-$start <20 ){ ... Programmbereich .... } exit;
1 2 3 4 5 6 7
my $erg = eval { local $SIG{ALRM} = sub { die }; alarm(20); my $erg = &mach_was; alarm(0); $erg; };
QuoteSignal handling may not behave as on Unix platforms (where
it doesn't exactly "behave", either). For instance,
calling "die()" or "exit()" from signal handlers will
cause an exception, since most implementations of "sig-
nal()" on Win32 are severely crippled. Thus, signals may
work only for simple things like setting a flag variable
in the handler. Using signals under this port should cur-
rently be considered unsupported.
|< 1 2 >| | 11 Einträge, 2 Seiten |