Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW
 
PerlMonks  

Re: Re: system() with timeout

by Sprad (Hermit)
on Mar 18, 2004 at 16:18 UTC ( [id://337722]=note: print w/replies, xml ) Need Help??


in reply to Re: system() with timeout
in thread system() with timeout

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

---
A fair fight is a sign of poor planning.

Replies are listed 'Best First'.
Re: Re: Re: system() with timeout
by tachyon (Chancellor) on Mar 18, 2004 at 16:59 UTC

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

    cheers

    tachyon

      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); }
      According to the thread linked above, signals are unsafe in version below 5.8. (and I am using Win32, so even then...)

      ---
      A fair fight is a sign of poor planning.

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://337722]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others having a coffee break in the Monastery: (3)
As of 2025-05-22 05:55 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?
    erzuuliAnonymous Monks are no longer allowed to use Super Search, due to an excessive use of this resource by robots.