Perl遍历目录

环境为windos，需要注意的两点：

1、默认activePerl下的采用的编码是gbk，所以需要将字符串转为gbk才不会显示乱码

2、遍历文件目录时，需要排除特殊的目录.和..

完整的代码：

 

   1: #!/usr/bin/perl

   2: use strict;

   3: use warnings;

   4: use Encode qw/from_to/; 

   5:  

   6: my $path = "e:/CSS Design";

   7: my $filecount = 0; 

   8:  

   9: sub parse_env {    

  10:     my $path = $_[0]; #或者使用 my($path) = @_; @_类似javascript中的arguments

  11:     my $subpath;

  12:     my $handle; 

  13:  

  14:     if (-d $path) {#当前路径是否为一个目录

  15:         if (opendir($handle, $path)) {

  16:             while ($subpath = readdir($handle)) {

  17:                 if (!($subpath =~ m/^\.$/) and !($subpath =~ m/^(\.\.)$/)) {

  18:                     my $p = $path."/$subpath"; 

  19:  

  20:                     if (-d $p) {

  21:                         parse_env($p);

  22:                     } else {

  23:                         ++$filecount;

  24:                         print $p."\n";

  25:                     }

  26:                 }                

  27:             }

  28:             closedir($handle);            

  29:         }

  30:     } 

  31:  

  32:     return $filecount;

  33: } 

  34:  

  35: my $count = parse_env $path;

  36: my $str = "文件总数：".$count;

  37: from_to($str, "utf8", "gbk"); 

  38:  

  39: print $str; 

 

 

运行效果图：