perl - 如果目录包含某个文件，如何使用 perl rmtree 树删除目录？

Question

我正在尝试删除给定路径上的所有目录，如果它们包含某个文件。

#!/usr/bin/perl

use strict;
use File::Find;
use File::Path qw( rmtree );

find(\&rm_errors, $_) for @ARGV;

sub rm_errors{
     if ($_ eq "git_errors.txt"){
     my $path = $File::Find::dir;
     rmtree( $path );
     } 
 } 

正在查找包含文件的目录，但是 rmtree 并未删除该目录。谁能告诉我为什么？

Answer 1

对于您提出的直接问题，找出问题所在的方法是使用诊断性 die 语句:

rmtree($path) or die "Cannot rmtree '$path' : $!";

这样，您将了解系统报告的错误。

但是，还有一个问题。您在遍历文件系统时会影响它，这不是一个好主意。这样的事情可能会更好:

my @dirs;
find(sub { push @dirs, $File::Find::dir if $_ eq "git_errors.txt" }, $_) for @ARGV;
for my $path (@dirs) {
    rmtree($path) or die "Cannot rmtree '$path' : $!";
}

也就是先找到目录，再删除。