如何使用 PERL 将多个 *.tgz 文件提取到多个目录

Question

我正在学习PERL lang。我已经强迫(并且有点困惑(提取 *.tgz 文件的问题。我想要实现的观点是将多个 *.tgz 文件提取到多个文件夹中。

所以结构是这样的：

first.tgz
sec.tgz
third.tgz
...
n.tgz

我想将这些文件解压缩到目录：

first (extracted first.tgz)
sec (extracted sec.tgz)
thidrd (extracted third.tgz)
etc.

有人可以帮助我解决这个问题，或者给出一些如何实现它的提示吗？

Answer 1

使用工具：

use autodie qw(:all);
use Path::Tiny qw(path);
for my $archive (qw(first.tgz sec.tgz third.tgz n.tgz)) {
    my $basename = path($archive)->basename('.tgz');
    path($basename)->mkpath;
    system qw(aunpack -X), $basename, $archive;
}