首页 新闻 会员 周边 捐助

新手请求帮助 Perl 在windows 下不解压读取tgz压缩包里的impr_* 开头的文件

0
悬赏园豆:50 [已解决问题] 解决于 2013-07-02 10:01

新手请求帮助
在windows 下不解压读取tgz压缩包里的impr_* 开头的文件

用Perl  实现如何实现  我使用  Archive::Tar  好像不可以

 

高手可以帮助下

麻雀0的主页 麻雀0 | 初学一级 | 园豆:133
提问于:2013-07-01 11:39
< >
分享
最佳答案
0

通过 $tar->extract(); 全部解压出来的文件中有impr_* 开头的文件吗?

收获园豆:50
dudu | 高人七级 |园豆:30559 | 2013-07-01 11:48

有的   就是怎么读取啊?  你之前做过吗?

麻雀0 | 园豆:133 (初学一级) | 2013-07-01 12:40

@tiger_z: 

参考代码(来自how to grep/read a file inside compressed tgz without extract):

perl -MArchive::Tar -le'
  ($pattern, $fname) = @ARGV;
  $tar = Archive::Tar->new;
  $tar->read($fname, 1);
  $tar->get_content($_) =~ /$pattern/ 
    and print for $tar->list_files;
  ' d test.tgz
dudu | 园豆:30559 (高人七级) | 2013-07-01 14:24
清除回答草稿
   您需要登录以后才能回答,未注册用户请先注册