perl - 如何有效地删除 perl 中的文件和目录的长列表/数组

Question

这就是我目前递归删除文件和目录的方式

foreach my $row(keys %$rows)
{
    my $md5 = $rows->{$row}->{'md5'};
    my $path = "/some/path/jpg/".substr( $md5, 0, 3 )."/$md5";

    `rm -rf $path`;
    print "removed - ".$path."\n";
}

有数十万个文件/目录需要删除，所以我希望看到一个更好的解决方案，而不是为每个文件/目录调用“rm -rf”。

也许将数组中的文件/目录列表组合起来，然后将该数组传递给单个“rm -rf”调用？

Answer 1

使用 File::Path 中的 rmtree .除了可移植之外，它还使用 Perl 的内置 unlink而不是每次需要删除目录时都启动整个 shell，这就是您现在正在做的事情。