1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
#!/usr/bin/perl -w
use strict;
my @cat = qw( cat );
my ( $in_q, $out_q, $err_q );
use IPC::Run qw( start pump finish timeout );
# Incrementally read from / write to scalars. Note that $in_q
# is a queue that is drained as it is used. $h is for "harness".
my $h = start \@cat, \$in_q, \$out_q, \$err_q, timeout(10), debug => 1;
$in_q .= "some input\n";
pump $h until $out_q =~ /input\n/g;
$in_q .= "some more input\n";
pump $h until $out_q =~ /\G.*more input\n/;
$in_q .= "some final input\n";
finish $h or die "cat returned $?";
warn $err_q if $err_q;
print $out_q ; ## All of cat's output
|
