perl讀取tgz文件

dickgz1z

perl代碼中應(yīng)該如何讀取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;

復(fù)制代碼

iuytr123

如果是壓縮成tgz ，就用Archive::Tar

dickgz1z

就這樣zcat跟用Archive::Tar有什么區(qū)別呢？

beyondfly

用system（）讀取

Monox

回復(fù) 1# dickgz1z
應(yīng)該有很多這樣的包，可以 google 一下，或者直接上 CPAN 上去 search。
偶然看到的兩個包，一個是 Compress::Zlib，一個是 PerlIO::gzip，前一個是默認(rèn)就有的，可以直接 perldoc 看幫助，后一個得自己安裝。
與樓上各位介紹的不同的是，這兩個模塊是用來直接讀取壓縮文件的，而不是對壓縮文件進(jìn)行解壓處理之類。而這正是我理解的樓主想要達(dá)到的效果。

dickgz1z

回復(fù) 6# Monox


    能不解壓下來直接讀當(dāng)然是最好的，解壓下來需要占磁盤空間

nsnake

Archive::Tar

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

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