在 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錯誤變量 。

Answer 2

有關的...

#!/usr/bin/perl -w

print STDOUT "Molweni!\n";
print STDERR "Hamba Kahle!\n" if ($baddata);