Perl遍历目录

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

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

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

完整的代码：

 

#!/usr/bin/perl

use strict;

use warnings;

use Encode qw/from_to/; 

   5:  

;

   7: my $filecount = 0; 

   8:  

   9: sub parse_env {    

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

  11:     my $subpath;

  12:     my $handle; 

  13:  

#当前路径是否为一个目录

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

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

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

; 

  19:  

if (-d $p) {

  21:                         parse_env($p);

else {

  23:                         ++$filecount;

;

  25:                     }

  26:                 }                

  27:             }

  28:             closedir($handle);            

  29:         }

  30:     } 

  31:  

return $filecount;

  33: } 

  34:  

  35: my $count = parse_env $path;

.$count;

); 

  38:  

print $str;