递归遍历文件夹统计文件的行数

以下代码由PHP站长网 52php.cn收集自互联网

现在PHP站长网小编把它分享给大家，仅供参考

#!/usr/bin/perl
$pwd="/home/program/";
$wc_temp="$pwd/wc_temp";
sub sum{
    my @file=<*>;
    foreach(@file){
	#print "$_n";
	chomp;
	my $path=`pwd`;
	chomp $path;
	if(-d){
	    chdir "$_" or die "con't chdirn";
	    #print "$pathn";
	    &sum;
	    chdir "$path" or die "con't chdirn";
	}elsif(-s){ #文件大小大于0
	    $total++;
	    if($_ eq "wc.file"){
		next;
	    }
	    $ENV{"tt"}=$_; #改变shell环境变量
	    $ENV{wc_temp}=$wc_temp;
	    system 'wc $tt >> $wc_temp';
	   # print "$_n";
	}
    }
}
&sum;
chdir "$pwd" or die "con't chdin";
system 'sort -n $wc_temp >wc.file'; #记录所有程序的代码行数
unlink "$wc_temp";
open FIN,"wc.file" or die "con't open$!";
foreach(<FIN>){
    chomp;
    @line=split;
    $num+=$line[0];
}
print "total_file=$totaln";
print "line=$numn";

以上内容由PHP站长网【52php.cn】收集整理供大家参考研究

如果以上内容对您有帮助，欢迎收藏、点赞、推荐、分享。

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!