生成修改记录

时间：2010-08-29 来源：ericxlin

#
# 生成修改记录
#
# 使用方法：将Source Insight搜索结果保存为0829.txt
#           将该文件保存为xxx.pl和0829.txt放在同一目录下，双击执行
#           结果在生成的result.txt中
# use strict;
my ($eachfile,$line,$output,$prev,$count,$ret,$prev_path);
$eachfile = undef;
$prev = undef;
$prev_path = undef;
$line = 0;
$count = 0;
$output = ">result.txt";
open OUT,$output or die $!;
#my @myfiles = <*.txt>;
#for $eachfile (@myfiles)
$eachfile = "<0829.txt";
{
open FH,$eachfile or die $!;
$line = 0;
while(<FH>) {
$line++;
if(($_ =~ /([\S]*)\s/))
{
   if(defined($prev))
   {
        $ret = $prev cmp $1;
if($ret == 0)
{
      $count++;
} else {
             print $prev_path,"\\",$prev,"\t",$count,"\n";
      print OUT $prev_path,"\\",$prev,"\t",$count,"\n";
      $count = 1;
             $prev = $1;
      if(($_ =~ /\s$([\S]*)$/))
      {
           $prev_path = $1;
             }
        }
   } else {
  $prev = $1;
        $count++;
if(($_ =~ /\s$([\S]*)$/))
{
     $prev_path = $1;
}
   }
}
}
close FH;
}
print "finish search ! \n";
print OUT "finish search ! \n";
close OUT;

相关阅读更多 +