用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$fileNumber\n";

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($_);
        }
    }
}