Perl遍历目录

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

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

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

完整的代码：

运行效果图：