计算指定文件夹下文件总数

最新推荐文章于 2019-03-12 17:55:46 发布

痕枫冷

最新推荐文章于 2019-03-12 17:55:46 发布

阅读量824

点赞数

CC 4.0 BY-SA版权

分类专栏： perl

本文链接：https://blog.youkuaiyun.com/lyx2007825/article/details/8463530

perl 专栏收录该内容

4 篇文章

订阅专栏

use strict;
use File::Find;

print "输入你要计算文件数量所属目录的路径: \n";

chomp(my $dir = <STDIN>);
print "正在计算，请稍后...\n";
BEGIN{
		my $count = 0;
		sub count_num { $count++ if -f }
		sub count_get { $count }
}

find(\&count_num,$dir);
print "$dir 目录下共有 " . &count_get( ) . " 个文件 \n";
system('pause');