如何在perl脚本中捕获gzip错误消息

Question

当我尝试打开zip文件时，我收到了压缩错误。我想捕获那个错误信息。 Plz帮助我做到这一点。我需要perl中的解决方案。

例如：

gzcat zipfile.gz

gzip：zipfile.gz：意外的文件结尾

我想将“意外的文件结束”捕获到变量中。

我如何在 PERL ??

中执行此操作

提前致谢。

Answer 1

我认为这个模块可以提供帮助：

http://metacpan.org/pod/IO::CaptureOutput

Answer 2

您需要重定向stderr输出。一种方法（可能取决于你的shell），是 -

my $res = `mycommand 2>&1`;
print "output + errors: $res\n"

此处还有其他建议 - How do you capture stderr, stdout, and the exit code all at once, in Perl?