计算工程中总共有多少行代码

最新推荐文章于 2023-03-27 12:46:29 发布

痕枫冷

最新推荐文章于 2023-03-27 12:46:29 发布

阅读量882

点赞数

分类专栏： perl

本文链接：https://blog.csdn.net/lyx2007825/article/details/8463552

版权

perl 专栏收录该内容

4 篇文章 0 订阅

订阅专栏

use strict;
use File::Find;
print "input your dir here: \n"; 
chomp(my $dir = <STDIN>);
print "counting,please waiting...\n"; 
find(\&wanted,$dir);

my $line_count;
sub wanted{
	if(-f $_){
	   my $file = $_;
	   open(FILE,"<",$file) or die "Can't open $file $!\n";
	   $line_count++ while(<FILE>);
	   close(FILE);
	}
}

print "Alother $line_count lines in $dir \n"; 
system("pause");