+ -
当前位置:首页 → 问答吧 → perl读取tgz文件

perl读取tgz文件

时间:2010-09-08

来源:互联网

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

作者: dickgz1z   发布时间: 2010-09-08

看这个模块,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   发布时间: 2010-09-08

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

作者: iuytr123   发布时间: 2010-09-08