perl - 如何在 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 中同时捕获标准错误、标准输出和退出代码？