perl小脚本
[*]#!/usr/bin/perl
[*]$FILENAME='Script.dat';
[*]$TMPFILE='file.tmp';
[*]open(FILE,"$FILENAME")or die("Can't open $FILENAME!\n");
[*]while(){
[*] 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(){
[*] @NUMBERGROUP=(split(/ /,$FILE4));
[*] 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=;
[*]close(FILE);
[*]foreach $_(@FILE){
[*] s/=/ /g;
[*] s/;//g;
[*] if (m/lua/){
[*] @NUMBERGROUP=(split);
[*] $COUNT{$_}++ foreach @NUMBERGROUP;
[*] }
[*]}
[*]foreach $_( keys %COUNT){
[*] if($COUNT{$_} >1){
[*] print "$_ $COUNT{$_}\n";
[*] }
[*]}
页:
[1]