采用递归的方法遍历目录

采用递归的方法遍历目录：
my($root) = "C:\\temp";
DoDir($root);
 
sub DoDir {
  my($dir) = shift;
  my($file);
    opendir(DIR, $dir) || die "Unable to open $dir :$!";
    my(@files) = grep {!/^\.\.?$/ } readdir(DIR);
  closedir(DIR);
  foreach (@files) {
          if (-d ($file = "$dir\\$_")) {
                print "Found a directory: $file\n";
             DoDir($file); 
          } else {
              print "File $file\n";
     }
  }
}