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