perl读取tgz文件

dickgz1z

perl代码中应该如何读取tgz文件？

iuytr123

看这个模块，Archive

1. use Archive::Extract;
   
2. ### build an Archive::Extract object ###
   
3. my $ae = Archive::Extract->new( archive => 'foo.tgz' );
   
4. ### extract to cwd() ###
   
5. my $ok = $ae->extract;
   
6. ### extract to /tmp ###
   
7. my $ok = $ae->extract( to => '/tmp' );
   
8. ### what if something went wrong?
   
9. my $ok = $ae->extract or die $ae->error;
   
10. ### files from the archive ###
    
11. my $files = $ae->files;

复制代码

iuytr123

如果是压缩成tgz ，就用Archive::Tar

dickgz1z

就这样zcat跟用Archive::Tar有什么区别呢？

beyondfly

用system（）读取

Monox

回复 1# dickgz1z
应该有很多这样的包，可以 google 一下，或者直接上 CPAN 上去 search。
偶然看到的两个包，一个是 Compress::Zlib，一个是 PerlIO::gzip，前一个是默认就有的，可以直接 perldoc 看帮助，后一个得自己安装。
与楼上各位介绍的不同的是，这两个模块是用来直接读取压缩文件的，而不是对压缩文件进行解压处理之类。而这正是我理解的楼主想要达到的效果。

dickgz1z

回复 6# Monox


    能不解压下来直接读当然是最好的，解压下来需要占磁盘空间

nsnake

Archive::Tar

$tar->get_content( $file )
Return the content of the named file.

更多的看下
http://search.cpan.org/~bingos/A ... /lib/Archive/Tar.pm