用Perl统计文件夹中所有普通文件数量

由于项目需要，自己动手写了一个用Perl统计指定文件目录中普通文件个数的小程序。这个小程序没有依赖任何第三方模块，完全是用最基本的Perl代码实现的。使用时只需要指定一个目标目录即可。

在编码过程中，有两个地方（第4行和第14行附近）本来打算用rindex，但是发现在不用的平台下，rindex的表现不太一样，考虑到移植性，就写了个稍微繁琐一点的控制逻辑。

如果有什么错误或可以改进的地方，请留言。

 
 

use?strict;?
  
  
use?warnings;?
  
  
my?$dir?=?$ARGV[0];?
  
  
my?$last_char?=?substr($dir,(length?$dir)-1);?
  
  
if($last_char?ne?"/"){?
  
  
????$dir?=?$dir."/";?
  
  
}?
  
  
my?$fileNumber?=?0;?
  
  
&cycle($dir);?
  
  
print?"File?Number:t$fileNumbern";?
  
  
?
  
  
sub?cycle{?
  
  
????my?$subDir?=?$_[0];?
  
  
????my?$last?=?substr($subDir,(length?$subDir)-1);?
  
  
????if($last?ne?"/"){?
  
  
????????$subDir?=?$subDir."/";?
  
  
????}?
  
  
????my?@list?=?glob?$subDir."*";?
  
  
????foreach(@list){?
  
  
????????if(-f?$_){?
  
  
????????????$fileNumber++;?
  
  
????????}?elsif(-d?$_){?
  
  
????????????&cycle($_);?
  
  
????????}????
  
  
????}?
  
  
}????????