Question

perl 处理压缩文档的一些问题

use Archive::Tar;
my $tar = Archive::Tar->new;
$tar->read('origin.tgz');
$tar->extract();
这样会把tgz解压出来，但是路径会在脚本存放的路径。如果是origin.Z这种压缩文件也打不开。
我用下面的
use Archive::Extract;
my $ae = Archive::Extract->new( archive => 'foo.tgz' );
my $ok = $ae->extract;
解是解出来了，得到的是乱码。
请问怎么弄？

Answer 1

$tar->extract_file( $file, [$extract_path] )    这样可以指定解压路径的

追问

那解压后缀.Z 怎么解

追答

你是解压出来的文件名乱码 还是文件内容乱码

追问

内容是乱码。文件名是好的

追答

你在win 还是linux？ 应该是字符编码 的问题 你用Encode模块 转换下

追问

windows里面。试过了。没用啊。不过，还是谢谢，有方法记得告诉我。