perl - Perl使用系统提取 tar

Question

我正在尝试使用tar文件提取目录，但是它似乎无法正常工作。
该命令在命令行中有效，但不适用于perl中的“系统”。我真的需要这个才能在perl中工作。

$tar_dir = "/root/updates/*.tar.bz2";
system ("for i in $tar_dir ; do tar xvfj $i; done");

在命令行上像这样工作: for i in *.bz2 ; do tar xvfj $i; done
我想念什么吗？

谢谢

Answer 1

或者，您可以将循环移动到Perl代码中:

use warnings;
use strict;

for (glob '/root/updates/*.tar.bz2') {
    system "tar xvfj $_";
}