perl腳本統計壹列中重復

chomp $line;

if (not exist $results{$line}){

$results{$line} = 1;

}

else{

$results{$line}++;

}

}

foreach (keys %results){

if ($results{$_} == 1){

print $_."不重復\n";

}

else{

print $_."重復".$results{$_}."次\n";

}

}