如何在Perl中将tar文件解压缩到目标目录

时间:2014-11-01 13:28:21

标签: perl tar

我是Perl的新手,我正在尝试编写一个脚本,它获取tar文件的路径,检查其中是否有txt文件,如果是,则将文件解压缩到输出文件夹。这是我的代码:

#!/usr/bin/perl
use strict;
use warnings;

use Archive::Tar;
use File::Spec::Functions qw(catdir);

#checking if tar file contain a txt file, if yes extract it to a folder

my $tarPath    = 'path/to/tarArchive';
my $tar        = Archive::Tar->new($tarPath);
my @files      = $tar->list_files;
my $output_dir = 'C:/output/path';
foreach my $file (@files) {
    if ( $file =~ /txt$/ ) {
        my $extracted_file = catdir( $fileName,   $file );
        my $extracted_path = catdir( $output_dir, $file );
        $tar->extract( $extracted_file, $output_dir );
        print $extracted_file;

    }
}
exit 0;

当我运行此脚本时,我收到一个错误:存档中没有此类文件。

你可以帮我理解我做错了什么以及应该是正确的命令?

1 个答案:

答案 0 :(得分:1)

Archive::Tar extract方法不允许您指定输出目录;它只允许输入文件列表。您需要使用extract_file方法:

    $tar->extract_file($extracted_file, $output_dir);