用perl统计文件夹中文件个数，行数，文件大小，用作项目统计

#! /usr/bin/perl
#如果运行perlscript 必须要安装perl，不能用绿色的。
#perllib 环境变量加上d:/perl/lib
use warnings;

sub countFileLine;
sub get_dir;

$totallines = 0;
$totalfiles = 0;
$totaldirs = 0;

my %filecatagorycount;
my %filecatagorysize;

get_dir @ARGV;
print "所有文件总行数：".$totallines . "?? " .$totallines/10000;print "万行/n";
print "所有文件总数：".$totalfiles;print "/n";
print "所有文件夹总数：".$totaldirs;print "/n";
# 打印每种类型文件个数
foreach(sort keys%filecatagorycount) #排序
{
?? ?print "后缀名为【 $_ 】文件个数 => $filecatagorycount{$_}","?? 文件大小 => ",$filecatagorysize{$_}/1024/1024,"M","/n";
}
my @filter = qw(h cpp pro pri );
my $filtersize = 0;
foreach (@filter)
{
??? print "/t".$_ . "/n";
??? $filtersize+=$filecatagorysize{$_}/1024/1024;
??? #print; #打印默认变量
}
print "通过[ @filter ] 过滤后总大小为? ".$filtersize,"M/n";

?

# 读取文件行数

open (FILE,$dataFile) or print "Can't open $dataFile: $!";
my @fileList = <FILE>;
close (FILE);
my $totalfile += ($#fileList + 1);

这种方法只能读取较小文件。

# 读取文件行数sub countFileLine {??? my $file = shift;??? my $count = 0;??? open (FH,"$file") or die "Can't open the file:$!/n";??? ++$count while (<FH>);??? #####$count即为文件内容行数。如果每行长度一样的话，可以读取文件大小，然后除以每行的长度。??? close FH;?? ?my @lines = split(//./,$file);?? ?my $linescount = @lines;?? ?$filesize = -s $file;?? ?#print $file.$filesize ; print "/n";?? ?# 查处字符串长度?? ?$len = rindex $lines[$linescount-1]."/$","/$";?? ?if($linescount > 1 && $len < 6)?? ?{?? ??? ?$filecatagorycount{$lines[$linescount-1]}++;?? ??? ?$filecatagorysize{$lines[$linescount -1]}+= $filesize;?? ?}?? ?else?? ?{?? ??? ?$filecatagorycount{"NOEXT"}++;?? ??? ?$filecatagorysize{"NOEXT"}+= $filesize;?? ?}?? ??? ?#print @lines;print "/n";??? # print "$count lines in $file/n";??? $totallines += $count;?? ?$totalfiles++;}# 读取目录文件行sub get_dir {??? my $dir = shift;?? ?print "$dir/n";??? opendir (DIR,"$dir") or die "Can't open dir:$!";??? my @file = readdir(DIR);??? closedir(DIR);??? foreach (@file)?? ?{?? ??? ?next if $_ eq '.' or $_ eq '..';?? ??? ?my $file = "$dir/$_";?? ??? ?if (-d $file)?? ??? ?{?? ??? ??? ? get_dir($file);?? ??? ?} ?? ??? ?else?? ??? ?{?? ??? ??? ?countFileLine($file) if -T $file;?? ??? ?}?? ?}?? ?$totaldirs++;}