在 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);