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

痕枫冷

于 2013-01-04 10:36:30 发布

阅读量900

点赞数

分类专栏： perl

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

版权

perl 专栏收录该内容

4 篇文章

订阅专栏

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");