如果目录包含某个文件,如何使用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' : $!";
}

也就是说,首先找到目录,然后删除它们.