Perl - ошибка захвата системы ()

Question

Я конвертирую некоторые изображения jpg в png с imagemagick и в perl имею следующее:

system("convert $jpg $png");
print "$?\n";

Есть ли способ захвата фактических ошибок из imagemagick (а не просто, был ли он выполнен или нет)как и в приведенном выше коде)?

примечание: я использую imagemagick исключительно в качестве примера ... это более общий вопрос о том, как фиксировать ошибки из любой программы, выполняемой system ().

спасибо!

Answer 1

извлечено из справочной страницы IPC :: Run :

use IPC::Run qw{run timeout};
my ($in, $out, $err);

run [convert => ($jpg, $png)], \$in, \$out, \$err, timeout( 10 ) or die "$err (error $?)"

Вы также можете использовать PerlMagick , например:

use Image::Magick;

my $p = new Image::Magick;
$p->Read($jpg);
$p->Write($png);

Answer 2

Как отмечает MkV, IPC :: Run - лучшее решение. Используйте это, если возможно.

Если вы находитесь в неработающей среде, которая не позволяет устанавливать модули CPAN, непростой обходной путь - это взломать трубу с перенаправлением оболочки:

open my $fh, '-|', "convert \Q$jpg\E \Q$png\E 2>&1"
    or die "Can't launch 'convert'";

... а затем прочитайте и проанализируйте $fh в зависимости от ситуации. \Q ... \E экранирует имена файлов и необходим во избежание проблем с именами файлов, которые содержат пробелы или другие метасимволы оболочки. Вы также должны использовать их с system(), чтобы избежать тех же проблем.

Answer 3

Для лучших результатов смотрите: Как-может-я снимаемый STDERR-из-ан-внешней-команды

Также прочитайте предыдущий:

Почему я не могу получить вывод команда с системой ()?