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

Question

尝试打开zip文件时出现压缩错误。 我想捕获该错误消息。 请帮助我做到这一点。 我需要perl中的解决方案。

例如：：

gzcat zipfile.gz

gzip：zipfile.gz：文件意外结束

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

我如何在PERL中做到这一点？

提前致谢。

Answer 1

我认为该模块可以帮助您：

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

Answer 2

您需要重定向stderr输出。 一种方法（尽管可能取决于您的外壳）是-

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

这里还有其他建议- 如何在Perl中同时捕获stderr，stdout和退出代码？