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";
    }
}