Perl：如何在解压缩tar.gz文件时获取新目录

Question

I want to make a perl script that extracts a file, then opens the result and dose stuff in there.I have this code:

$res = qx{tar -xvf $tmp -C /tmp/}; #$tmp was specified earlier

but I don't know how to see what new directory was created?

This may not be the most efficient way, but I'm new to Perl and don't know all the modules.

Answer 1

One option is to parse the output of tar, which gets messy and can change between versions of tar.

Or you can untar in an empty directory. Then whatever is in the directory after untaring is what came from the tarball. This works even if the tarball is impolite and does not create a directory.

use File::Temp;

my $tempdir = File::Temp->newdir;
qx{tar -xvf $tarball -C $tempdir};

Or you can also use Archive::Tar or Archive::Extract to list the files in the archive. Archive::Extract has the benefit of being a generic interface to all sorts of archive formats.

use Archive::Extract;

my $ae = Archive::Extract->new( archive => $tarball );
my $files = $ae->files;

Answer 2

您可以在解压缩tarball之前构建一个目录列表（使用readdir（）），然后重新生成它，并推断出新列表中没有原始列表中的任何内容都来自tarball。