如何在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和退出代碼？