#!/usr/bin/perl &find_fileindir("/usr/local/apache/htdocs"); 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 =~/\.(html|htm|shtml)$/i){ print "$dir\/$file \n"; } elsif(-d "$dir/$file"){ find_fileindir("$dir/$file" ); } } }
