perl小脚本

 
 

#!/usr/bin/perl?
  
  
$FILENAME='Script.dat';?
  
  
$TMPFILE='file.tmp';?
  
  
open(FILE,"$FILENAME")or?die("Can't?open?$FILENAME!n");?
  
  
while(<FILE>){?
  
  
????????if(m/lua/){?
  
  
????????????????s/=/?/g;?
  
  
????????????????s/;//g;?
  
  
????????????????open(FILE2,">>","$TMPFILE")or?die("1.Can't?open?$TMPFILE!n");?
  
  
????????????????print?FILE2;?
  
  
????????????????close(FILE2);?
  
  
????????}?
  
  
}?
  
  
close(FILE);?
  
  
open(FILE3,"$TMPFILE")or?die("2.Can't?open?$TMPFILE!n");?
  
  
foreach?$FILE4(<FILE3>){?
  
  
????????@NUMBERGROUP=(split(/?/,$FILE4))[0];?
  
  
????????foreach?$NUMBER(@NUMBERGROUP){?
  
  
????????$COUNT{$NUMBER}?+=?1;?
  
  
????????}?
  
  
}?
  
  
foreach?$NUMBER?(?keys?%COUNT){?
  
  
????????if($COUNT{$NUMBER}?>1){?
  
  
????????print?"$NUMBER?$COUNT{$NUMBER}n";?
  
  
????????}?
  
  
}?
  
  
close(FILE3);?
  
  
unlink?"$TMPFILE";?
 
 

?将以上脚本修改如下，能达到同样效果;

 
 

#!/usr/bin/perl?
  
  
$FILENAME='FILENAME';?
  
  
open(FILE,"$FILENAME")or?die("Can't?open?$FILENAME!n");?
  
  
@FILE=<FILE>;?
  
  
close(FILE);?
  
  
foreach?$_(@FILE){?
  
  
????s/=/?/g;?
  
  
????s/;//g;?
  
  
????if?(m/lua/){?
  
  
????@NUMBERGROUP=(split)[0];?
  
  
????$COUNT{$_}++?foreach?@NUMBERGROUP;?
  
  
????}?
  
  
}?
  
  
foreach?$_(?keys?%COUNT){?
  
  
????if($COUNT{$_}?>1){?
  
  
????print?"$_???$COUNT{$_}n";?
  
  
????}?
  
  
}?