Как я могу записать stdin и stdout из системной команды из Perl-скрипта?

Question

В середине скрипта Perl есть системная команда, которую я хочу выполнить. У меня есть строка, которая содержит данные, которые необходимо передать в stdin (команда принимает только вход из stdin), и мне нужно записать вывод, записанный в stdout. Я просмотрел различные методы выполнения системных команд в Perl, а функция open, похоже, нужна мне, за исключением того, что похоже, что я могу только записывать stdin или stdout, а не обе.

На данный момент мне кажется, что лучшим решением является использование open, перенаправление stdout во временный файл и чтение из файла после завершения команды. Есть ли лучшее решение?

Answer 1

Я думаю, что вы хотите взглянуть на IPC::Open2

Answer 2

IPC :: Open3, вероятно, будет делать то, что вы хотите. Он может захватывать STDERR и STDOUT.

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

Answer 3

Существует специальная команда Perl для этого

open2() 

Более подробную информацию можно найти на: http://sunsite.ualberta.ca/Documentation/Misc/perl-5.6.1/lib/IPC/Open2.html

Answer 4

Где-то в верхней части вашего скрипта, включите строку

use IPC::Open2; 

Это будет включать в себя необходимый модуль, обычно устанавливаемый с большинством дистрибутивов Perl по умолчанию. (Если вы не имеете его, вы можете установить его с помощью CPAN.) Затем, вместо открытого, звони:

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

Вы можете отправить данные в вашу команду, отправив его в $ cmd_in, а затем перечитайте Командование выводится путем чтения из $ cmd_out.

Если вы также хотите, чтобы читать поток stderr команды, вы можете использовать модуль IPC :: Open3.

Answer 5

Я всегда делаю это так, если я только ожидал одну строку вывода или хотите разделить результат на нечто иное, чем символ новой строки:

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

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

Если вы хотите иметь дело с мульти- ответ линии, получить результат в виде массива:

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

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

Answer 6

perlipc documentation охватывает множество способов, которые вы можете сделать это, в том числе IPC :: open2 и IPC :: open3.

Answer 7

IPC :: open2/3 отлично, но я обнаружил, что, как правило, все, что мне действительно нужно IPC::Run3, который обрабатывает простые случаи действительно хорошо с минимальной сложностью:

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

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

Документация сравнивает IPC: : Run3 для других альтернатив. Это стоит прочитать, даже если вы не решите его использовать.

Answer 8

Если вы не хотите включать дополнительные пакеты, вы можете просто сделать

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

, который противное, что вы предложили, но они должны работать также.

Answer 9

Очень простой способ сделать это, который я недавно нашел, это IPC::Filter модуль. Это позволяет сделать работу чрезвычайно интуитивно:

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

Обратите внимание, как она активирует вашу команду, не выходя через оболочку, если вы передаете его список. Он также выполняет разумную работу по обработке ошибок для общих утилит. (В случае сбоя, die s, используя текст из STDERR в качестве сообщения об ошибке, при успешном завершении STDERR просто отбрасывается.)

Конечно, он не подходит для огромного количества данных, поскольку он не обеспечивает никаких действий потоковая обработка; Кроме того, обработка ошибок может быть недостаточной для ваших нужд. Но это делает многие простые случаи действительно действительно простой.