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