печать сообщение об ошибке в PERL скрипт

Question

Я бегу этот кусок Сценарий Perl:

system "bash", "-c", 
" some command; exit \${PIPESTATUS[0]}" 
and die "has failed" 

Теперь, если some command не выполнить правильно, сценарий провалится с has failed без более полезной информации.

Как мне сделать команду die для печати любого сообщения об ошибке, которое произвело some command?

Благодаря

Answer 1

Что-то вроде этого:

system($cmd) == 0 or die "$0: [$cmd] failed: $?\n"; 

Смотрите также Perl Error Variables.