我正在尝试一个来自大型“.tgz”文件的单曲。我正在使用Archive::Tar::Streamed模块。
这是示例代码。
my $tar2 = Archive::Tar::Streamed->new($filename);
$fil = $tar2->next;
while($fil) {
$_ = $fil->name;
if(m/abc\.txt/g) {
$fil->extract($outpath);
$fil = $tar2->next;
}
}
但是迭代器不起作用。它循环存档中的第一个文件,而不是移动到下一个文件。谁能告诉我我在这里犯了什么错误???