I tried doing this:
It turns out that the shell script is not even executed.eval { local $SIG{ALRM}=sub{die "alarm\n"}; alarm 600; $shell_out = system("./sh1.sh"); alarm 0; }; if($@) { die unless $@ eq "alarm\n"; }
In reply to Re^2: Killing a shell script from within a perl script
by strider88
in thread Killing a shell script from within a perl script
by strider88
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |