Beefy Boxes and Bandwidth Generously Provided by pair Networks
Pathologically Eclectic Rubbish Lister

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 making s'mores by the fire in the courtyard of the Monastery: (4)
As of 2018-06-24 05:49 GMT
Find Nodes?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?

    Results (126 votes). Check out past polls.