如何从Perl脚本中捕获系统命令的stdin和stdout？

Question

In the middle of a Perl script, there is a system command I want to execute. I have a string that contains the data that needs to be fed into stdin (the command only accepts input from stdin), and I need to capture the output written to stdout. I've looked at the various methods of executing system commands in Perl, and the open function seems to be what I need, except that it looks like I can only capture stdin or stdout, not both.

At the moment, it seems like my best solution is to use open , redirect stdout into a temporary file, and read from the file after the command finishes. Is there a better solution?

Answer 1

IPC::Open2/3 are fine, but I've found that usually all I really need is IPC::Run3 , which handles the simple cases really well with minimal complexity:

use IPC::Run3;    # Exports run3() by default

run3( \@cmd, \$in, \$out, \$err );

The documentation compares IPC::Run3 to other alternatives. It's worth a read even if you don't decide to use it.

Answer 2

IPC::Open3 would probably do what you want. It can capture STDERR and STDOUT.

http://metacpan.org/pod/IPC::Open3

Answer 3

Somewhere at the top of your script, include the line

use IPC::Open2;

That will include the necessary module, usually installed with most Perl distributions by default. (If you don't have it, you could install it using CPAN.) Then, instead of open, call:

$pid = open2($cmd_out, $cmd_in, 'some cmd and args');

You can send data to your command by sending it to $cmd_in and then read your command's output by reading from $cmd_out.

If you also want to be able to read the command's stderr stream, you can use the IPC::Open3 module instead.

Answer 4

perlipc文档涵盖了许多方法，包括IPC :: Open2和IPC :: Open3。

Answer 5

A very easy way to do this that I recently found is the IPC::Filter module . It lets you do the job extremely intuitively:

$output = filter $input, 'somecmd', '--with', 'various=args', '--etc';

Note how it invokes your command without going through the shell if you pass it a list. It also does a reasonable job of handling errors for common utilities. (On failure, it die s, using the text from STDERR as its error message; on success, STDERR is just discarded.)

Of course, it's not suitable for huge amounts of data since it provides no way of doing any streaming processing; also, the error handling might not be granular enough for your needs. But it makes the many simple cases really really simple.

Answer 6

我想你想看看IPC :: Open2

Answer 7

There is a special perl command for it

open2()

More info can be found on: http://sunsite.ualberta.ca/Documentation/Misc/perl-5.6.1/lib/IPC/Open2.html

Answer 8

I always do it this way if I'm only expecting a single line of output or want to split the result on something other than a newline:

my $result = qx( command args 2>&1 );  
my $rc=$?;  
# $rc >> 8 is the exit code of the called program.

if ($rc != 0 ) {  
    error();  
}  

If you want to deal with a multi-line response, get the result as an array:

my @lines = qx( command args 2>&1 );  

foreach ( my $line ) (@lines) {  
    if ( $line =~ /some pattern/ ) {  
        do_something();  
    }  
}  

Answer 9

If you do not want to include extra packages, you can just do

open(TMP,">tmpfile");
print TMP  $tmpdata ;
open(RES,"$yourcommand|");
$res = "" ;
while(<RES>){
$res .= $_ ;
}

which is the contrary of what you suggested, but should work also.