Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation
 
PerlMonks  

Re: User input while process is running.

by rjt (Curate)
on Aug 05, 2013 at 13:31 UTC ( #1047911=note: print w/replies, xml ) Need Help??


in reply to User input while process is running.

Have a look at IPC::Run for a robust implementation of this, or for simple uses that don't require pty emulation and you don't need to capture the output, open will do what you want. Here's a barebones look at both:

use 5.010; use autodie; # With basic open() open my $sort, '|-', 'sort -n'; printf $sort "%d\n", rand 100 for 1..10; close $sort; # With IPC::Run use IPC::Run qw/start finish pump/; print "IPC::Run output:\n"; my $r = start [ 'perl' ], \my $in, \my $out, \my $err or die "Can't start: $!"; $in .= 'print "Hello, world!\n";'; finish $r; say $out; die 'ERROR: $err' if length $err;

Output:

13 14 34 37 44 63 83 86 90 95 IPC::Run output: Hello, world!
use strict; use warnings; omitted for brevity.

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (8)
As of 2020-09-18 14:03 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    If at first I donít succeed, I Ö










    Results (112 votes). Check out past polls.

    Notices?