Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked

Re: Interprocess Communication

by ahunter (Monk)
on Jul 04, 2000 at 18:59 UTC ( #21019=note: print w/replies, xml ) Need Help??

in reply to Interprocess Communication

I have no experience with, so maybe that is what you want, but if not, or you want to stick with modules that are part of the standard distribution, IPC::Open2 and IPC::Open3 give you the ability to open pipes both to and from a child process. Something like (untested):
use IPC::Open2; local (*RD, *WR); my $child = open2(\*RD, \*WR, 'passwd'); # RD and WR are now pipes connected to STDOUT/STDERR and # STDIN respectively of the child process. $child contains # the PID. my $prompt = <RD>; # not caring what the prompt is, here print WR "password\n"; $prompt = <WR> # prompted again print WR "password\n";
Though, to make the code robust, you will want to check the prompts, and probably deal with SIGCHLD yourself so you can get return conditions and so on. You should also set an alarm to time out if something blocks unexpectedly.


Log In?

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

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (8)
As of 2016-10-28 22:46 GMT
Find Nodes?
    Voting Booth?
    How many different varieties (color, size, etc) of socks do you have in your sock drawer?

    Results (387 votes). Check out past polls.