Как читать STDOUT из подпроцесса в OO Perl

Question

В Perl один способ чтения STDOUT подпроцесса является использование open:

open(PIPE, "ls -l |"); 

Я искал более объектно-ориентированный подход к сделайте это, хотя, и я использовал IO::Pipe с некоторым успехом. Однако я хочу обнаружить ошибки, особенно если команда не является исполняемой. Однако я не могу понять, как это сделать через IO::Pipe. Вот что у меня есть:

use strict; 
use warnings; 

use IO::Pipe; 


my($cmd) = join (" ", @ARGV); 

open(PIPE, "$cmd |") || die qq(error opening PIPE); 
while (<PIPE>) { 
     chomp; 
     print "DBG1: $_\n"; 
} 

close PIPE; 

my($pipe) = IO::Pipe->new(); 
$pipe->reader($cmd); 
die qq(error opening IO::Pipe) if $pipe->eof(); 

while (<$pipe>) { 
     chomp; 
     print "DBG2: $_\n"; 
} 

$pipe->close(); 

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

$ perl pipe.pl "ls -l >/dev/null" 
error opening IO::Pipe at pipe.pl line 20. 

куча вопросов, то:

Есть разумный OO способ читать из подпроцесса в Perl? Является IO::Pipe правильным инструментом для использования? Если да, как я могу проверить, чтобы команда подпроцесса была успешно создана? Если нет, что я должен использовать? Я не хочу писать в подпроцесс, поэтому я не думаю, что хочу IPC::Open2 или IPC::Open3. Я бы предпочел использовать основной модуль, если это возможно.

Answer 1

Backticks не является основным модулем, но, похоже, делает то, что вы ищете.

use strict; 
use warnings; 
use Backticks; 
my $cmd = Backticks->new(join (" ", @ARGV)); 
$cmd->run(); 

if ($cmd->success){ 
     print $cmd->stdout 
} else { 
     print "Command failed\n"; 
} 

Запуск этого с действующей командой, то неправильная команда дает ниже результаты

io_pipe.pl "uname -o"

GNU/Linux 

io_pipe.pl "uname -z"

Command failed 

Обновление Как указано в @thisSuitIsNotBlack, этот модуль изменяет поведение глухих в обратном направлении в perl. Вы должны прочитать раздел «Примечания» в POD. Однако основным из них является то, что необходимо знать:

backticks От Фильтр :: Простой. Источник фильтрации может быть странно иногда ... если вы хотите использовать данный модуль в чисто традиционном стиле Perl OO, просто отключить фильтрацию источника как только вы загрузите модуль:

use Backticks; 
no Backticks; 

Answer 2

Проблема не в IO :: Pipe. Проблема eof - неправильный способ проверить ошибку канала. Это не означает, что трубы нет, это значит, что читать от этой трубы. У вас была бы такая же проблема с eof PIPE. Это прекрасно, потому что подпроцесс ничего не печатает.

Если вы хотите проверить, что подпроцесс успешно запущен, выясняется, что IO :: Pipe уже делает это за вас.

# IO::Pipe: Cannot exec: No such file or directory 
$pipe->reader("hajlalglagl");