10 Einträge, 1 Seite |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
#!/usr/bin/perl
$SIG{'ALRM'} = 'hallo_alarm';
alarm(5);
print "Los gehts!\n";
foreach (my $i=0;$i < 99999999; $i++) {
$i--;
++$i;
$i--;
}
print "Und raus\n";
exit(0);
sub hallo_alarm
{
print "Hallo\n";
exit(1);
}
10 Einträge, 1 Seite |