in reply to Re^2: How to cpture output of interactive command using perl.?
in thread How to cpture output of interactive command using perl.?
open my $fh, "cat |" or die; while (<$fh>) { print "Got: $_"; } close $fh or die; __END__ foo Got: foo bar Got: bar baz Got: baz ^D
|
|---|