如何用Perl读取C盘中的所有文件夹里所有文件

Question

需要找出C盘中所有文件名后缀为 .txt .xml .cache的文件

Answer 1

$| = 1;
iter_dir('C:\\');
sub iter_dir {
my $dir = shift;
my $D;
opendir($D, $dir);
my @f = readdir $D;
close $D;
for my $f(@f){
        next if $f eq '.' || $f eq '..';
        my $full = $dir .$f;
        if (-d $full) {
            iter_dir($full . '\\');
            next;
        }
        if ($f=~/\.(txt|xml\cache)/) {
print "$full\n";
}
    }
}