Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical

Re: Proc::Simple store return from background process

by Perlbotics (Chancellor)
on Oct 11, 2012 at 18:27 UTC ( #998508=note: print w/replies, xml ) Need Help??

in reply to Proc::Simple store return from background process

Short answer: You cannot with Proc::Simple (longer: in your case when starting a sub{...} as a child process)

This is what happens in the child part of the fork() that is executed for your $func = sub{...};

# in Proc::Simple # $func = sub{ ... }; # your code ... if(ref($func) eq "CODE") { $self->dprt("Launching code"); $func->(@params); exit 0; # Start perl subroutine } else { ...
So, the exit 0 (successful execution) is all that is returned from your sub{...}. The $return value is discarded.

Your sub{...} could return the result to the main process by means of IPC or by storing the result in a temporary file (e.g. YAML, JSON, Storable, etc.). The parent process could read the result from a pipe or load the serialised data from a file after the sub has finished.
Update: IPC::Lite

However, I guess, that in this particular case, you're better off with threads and maybe a queue.

Replies are listed 'Best First'.
Re^2: Proc::Simple store return from background process
by perldarren (Novice) on Oct 12, 2012 at 10:34 UTC
    Ok, I see.

    To get around this I made my routine physically exit with the return code I originally wanted to return.

    I can then read this as Proc::Simple intended using something like:
    my $exit = $child_procs{myhost}{proc}->exit_status(); my $exit_code = $exit >> 8;
    Thank you very much for your help.

    Regards, Darren

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://998508]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (5)
As of 2018-04-27 03:50 GMT
Find Nodes?
    Voting Booth?