在perl中使用gunzip或解压缩文件，并在变量中捕获文件名

Question

我有9001_20150921113547_00041.xml.gz ，我想将其压缩，也可以说将其解压缩为9001_20150921113547_00041.xml ...我在perl中有很多方法，我也使用了system（） ， qw ， qx和backtick ，它只是解压缩文件并将文件存储在路径中，但是我想将新的解压缩文件名存储为变量，我该怎么做？

Answer 1

您可以使用CPAN中的Archive :: Zip在您控制的所有位下执行作业。 然后，您无需派出额外的解压缩命令，即可自己控制输出文件的名称。 该页面上的文档还包含代码示例。

Answer 2

尝试Perl模块IO :: Uncompress :: Unzip-读取zip文件/缓冲区：

使用IO :: Uncompress :: Unzip qw（unzip $ UnzipError）;

我的$ z =新IO :: Uncompress :: Unzip $ input [OPTS]或死于“ unzip failed：$ UnzipError \\ n”；