Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery
 
PerlMonks  

Re: Re: Re: system() with timeout

by tachyon (Chancellor)
on Mar 18, 2004 at 16:59 UTC ( #337737=note: print w/replies, xml ) Need Help??


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

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

cheers

tachyon

Replies are listed 'Best First'.
Re: Re: Re: Re: system() with timeout
by clintp (Curate) on Mar 18, 2004 at 19:36 UTC
    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); }
Re: Re: Re: Re: system() with timeout
by Sprad (Hermit) on Mar 18, 2004 at 17:55 UTC
    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://337737]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others contemplating the Monastery: (8)
As of 2023-05-30 07:52 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?