Как избежать печати в STDOUT при использовании Perl `IPC :: System :: Simple: runx`?

Question

Я использую IPC::System::Simple:runx для выполнения системных команд и смерти при неожиданных возвращаемых значениях. Проблема в том, что вывод команд печатается в оболочку.

1. Как я могу избежать печати этого вывода ?
2. Как я могу избежать печати этого вывода , но попадая в переменную perl?

UPDATE

3) Как я могу напечатать этот вывод тогда и только тогда выполнение потерпит неудачу?

Answer 1

capture() команда? Или capturex().

Цитируется по ссылке:

Обработка исключений

В случае, когда команда возвращает неожиданный статус, как бег и захват будет сгенерировано исключение, которое, если не пойманной прекратит свою программу с ошибка.

Захватив исключение легко: для более подробной информации

eval { 
    run("cat *.txt"); 
}; 

if ($@) { 
    print "Something went wrong - $@\n"; 
} 

Смотрите раздел диагностики ниже.

Answer 2

Если модуль действительно ведет себя очень неприятно и печатает непосредственно в STDOUT, вы всегда можете перенаправить STDOUT на что-то другое. Этот вид взлома, но некоторые модули требуют этого.

# Save STDOUT for restore later 
open(OLD_STDOUT, ">>&STDOUT"); 
open(STDOUT, ">/some/file/or/dev/null"); 
# call your module 
# Restore STDOUT 
open(STDOUT, ">>&OLD_STDOUT");