|
- #!/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))[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=;
- 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";
- }
- }
|
|
|