Perl遍历目录

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;