Re: Help to improve script that searches a file for key words in a second file.

[jwkrahn]

        if($annotation =~ /(\b($term)\b|$term-)\b|(-$term)\b/i) {
            $nTermHits {$term}++;
            $nTotalHits++;
            push(@annotationlist, "$annotation\n");
    }

You are not using the contents of the capturing parentheses so you could simply write that as:

        if($annotation =~ /(?:\b$term|$term-|-$term)\b/i) {

foreach $term (@terms) {
    if ($nTermHits {$term} > 0) {
        printf "%s\t%d\n", $term, $nTermHits {$term};
    }
}

That would be better as:

foreach $term (keys %nTermHits) {
    printf "%s\t%d\n", $term, $nTermHits {$term};
}

[mastarr]

Thanks. That was exactly what I was looking for.