perl递归读取目录下文件
#!/usr/bin/perl my $indir = $ARGV[0]; &find_fileindir("$indir"); sub find_fileindir(){ local($dir) = @_; opendir(DIR,"$dir"|| die "can't open this $dir"); local @files =readdir(DIR); closedir(DIR); for $file (@files){ next if($file=~m/\.$/ || $file =~m/\.\.$/); if ($file =~/\.(sql)$/i){ print "$dir\/$file \n"; } elsif(-d "$dir/$file"){ find_fileindir("$dir/$file" ); } } }