Opened by theresa at 2008-03-03 15:45
User since
2007-07-17
90 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2007-07-17
90 Artikel
BenutzerIn
Hi,
hat bei mir nichts geändert.
alarm war allerdings sehr hilfreich, habe mit
es hingekriegt, dass das Programm erstmal weitermacht... brauche aber die Rückgabe von $text. Das hatte ich bislang mit dem auskommentierten Teil hingekriegt also
damit scheint aber alarm nicht zu wirken. Brauche die Windows Rückgabe sozusagen.
Code: (dl
)
system (1, "program.exe");
alarm war allerdings sehr hilfreich, habe mit
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
eval {
local $SIG{ALRM} = sub { die "alarm\n" }; # NB \n required
alarm 2;
#my $return = `$text 2>&1`;
my $return = system($text);
# $nread = sysread SOCKET, $buffer, $size;
alarm 0;
};
die if $@ && $@ ne "alarm\n"; # propagate errors
if ($@) {
# timed out
print "\ntimeout, return: " . $return;
}
else {
# didn't
}es hingekriegt, dass das Programm erstmal weitermacht... brauche aber die Rückgabe von $text. Das hatte ich bislang mit dem auskommentierten Teil hingekriegt also
Code: (dl
)
my $return = `$text 2>&1`;