• 热门专题

Perl编程获取文件件中文件的数量

作者:小碗油泼面  发布日期:2012-12-28 10:01:54
Tag标签:Perl编程  
  • 由于项目需要,自己动手写了一个用Perl统计指定文件目录中普通文件个数的小程序。这个小程序没有依赖任何第三方模块,完全是用最基本的Perl代码实现的。使用时只需要指定一个目标目录即可。

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

    如果有什么错误或可以改进的地方,请留言。 www.it165.net

     

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


     

About IT165 - 广告服务 - 隐私声明 - 版权申明 - 免责条款 - 网站地图 - 网友投稿 - 联系方式
本站内容来自于互联网,仅供用于网络技术学习,学习中请遵循相关法律法规