Re: Re: system() with timeout

[Sprad]

Dang. I'm stuck with 5.6.1, so it looks like the alarm method isn't going to work for me...

[tachyon]

Why not. 5.6.1 supports alarm, just not on Win32.

[Sprad]

According to the thread linked above, signals are unsafe in version below 5.8. (and I am using Win32, so even then...)

[clintp]

Under Win32, create a separate thread and start your external process under that thread. Back in the parent thread, start counting until you want the timout to expire (or Wait() for it) then kill the thread. It looks something like this:

Win32::Process::Create($proc, "c:\foo.exe", "foo.exe arg1 arg2 arg3",
    0, $priority,
    ".") || die "can't create  process, ". Win32::FormatMessage( Win32
+::GetLastError());
my $ret= $proc->Wait($timeoutsecs * 1000);
if (! $ret ) {
    # Still running, kill it.
    $proc->Kill(0);
}