如何有效地删除文件和迪尔斯一长串/阵列在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

使用rmtree从File::Path。除了可移植性以外，它还使用Perl的内置unlink，而不是每次需要删除目录时启动整个shell，这就是您现在正在执行的操作。