Opened by [E|B] at 2004-07-10 22:14
User since
2003-08-04
5246 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-04
5246 Artikel
ModeratorIn
folgendes konstrukt verwende ich recht gerne:
falls ich mich irgendwo vertippt habe: perldoc -f alarm
ich glaube, dass alarm unter win32 noch immer nicht richtig funktioniert (habe es aber schon laenger nicht mehr unter Win32 ausprobiert)\n\n
<!--EDIT|Strat|1089491102-->
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
$SIG{ALRM} = sub { die "timeout\n"; }
eval {
alarm(180);
# ....
alarm(0); # reset
};
if ($@) {
if ($@ =~ /timeout/) {
print "Timed out\n";
}
else {
die "Error: $@\n";
}
} falls ich mich irgendwo vertippt habe: perldoc -f alarm
ich glaube, dass alarm unter win32 noch immer nicht richtig funktioniert (habe es aber schon laenger nicht mehr unter Win32 ausprobiert)\n\n
<!--EDIT|Strat|1089491102-->
perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/
http://www.fabiani.net/