Perl遍历目录

原作者: [db:作者] 来自: [db:来源] 收藏邀请

环境为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;

运行效果图：

该文章已有0人参与评论

专题导读