在perl中压缩或解压缩文件并在变量中捕获文件名

Question

我有 9001_20150921113547_00041.xml，我想将其解压缩，或者您可以将其解压缩为configurations { compile.exclude group: "org.apache.httpcomponents", module: "httpclient" all*.exclude group: 'com.android.support', module: 'support-v4' } ...我有很多方法可以在perl中执行此操作，我使用 system（） ， qw ， qx 以及反引号，它只是解压缩文件并将文件存储在路径中但我想存储新的解压缩文件名称变量如何才能这样做？

Answer 1

您可以使用CPAN中的Archive::Zip来执行您控制下所有位的作业。然后你不需要派出额外的解压缩命令，并自己控制输出文件名。该页面上的文档也有代码示例。

Answer 2

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

  

使用IO :: Uncompress :: Unzip qw（解压缩$ UnzipError）;

     

my $ z = new IO :: Uncompress :: Unzip $ input [OPTS]       或死“解压失败：$ UnzipError \ n”;