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

原创于 2013-01-04 10:36:30 发布 · 921 阅读

0 ·

CC 4.0 BY-SA版权

perl 专栏收录该内容

4 篇文章

订阅专栏

本文介绍了一个简单的Perl脚本，用于递归地遍历指定目录及其子目录中的所有文件，并统计每个纯文本文件的行数。该脚本适用于需要快速了解项目规模或文件内容长度的情况。

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