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

Question

我正在学习PERL语言。 我已经（（有点困惑））解压缩* .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

使用atool：

#rowContainer{
       height:100vh;
}