Question

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

需要找出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";
		}
    }
}