in reply to Re^4: Win32::Job::watch vs. system(1,...)
in thread Win32::Job::watch vs. system(1,...)

Then watch() is not a good fit for your requirements. All you need is something like: 

my $job = Win32::Job->new;
my $pid = $job->spawn();

while( 1 ) {
    ## read and process next task

    sleep 3 while $job->status->{ $pid }{ exitcode } == $STILL_RUNNING
+ ## 259??
            and not -e 'killfile';

    $job->kill if $job->status->{ $pid }{ exitcode } == $STILL_RUNNING
+;

    $job = Win32::Job->new;
    $pid = $job->spawn( ... )
}

[download]
Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
"Science is about questioning the status quo. Questioning authority".
In the absence of evidence, opinion is indistinguishable from prejudice.
RIP PCW It is as I've been saying!(Audio until 20090817)

Replies are listed 'Best First'.
Re^6: Win32::Job::watch vs. system(1,...)
by rovf (Priest) on Sep 28, 2009 at 07:21 UTC
    my $pid = $job->spawn();

    I must admit that there is something I don't understand in the documentation of Win32::Job::spawn. The perldoc says: 

    
           spawn($exe, $args, \%opts);

        Creates a new process and associates it with the Job. The proc
+ess is
        initially suspended, and can be resumed with one of the other
        methods.

    [download]
    I was thinking that this means, spawn creates a new process, but does not actually execute it, and that I would have to execute it with one of the other methods (run or watch). In your example, you use neither of these. How is this supposed to work, respectively, in what way did I misunderstand the documentation?

    -- 
    Ronald Fischer <ynnor@mm.st>
[reply]
[d/l]
[select]

      Okay. Looking back at the code on my archive CD from my old machine, the one time I had occasion to use Win32::Job, I encountered the same problem and fixed it by adding these 5 lines to Job.xs: 

      void
run_nw(self)
    JOB_T self
    CODE:
    resume_threads(aTHX_ self->procs );

      [download]

      If you add that and rebuild, you can start the job asynchronously by calling $job->run_nw when you've set the job up.

      Sorry for not putting two and two together from your earlier posts ... um, earlier.

      Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
      "Science is about questioning the status quo. Questioning authority".
      In the absence of evidence, opinion is indistinguishable from prejudice.
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom