🚀 go-pugleaf

Estoy haciendo un programa en perl y como estoy empezando no me entero de
mucho. Tengo que hacer un bucle comprobando si en el hash %subject_hash
se da algunas de las expresiones regulares de @regexp_list, pero cuando
tengo que comprobar 7000 expresiones contra 6000 titulos se eterniza.
Puede ser normal ya que son muchas comprobaciones pero quer�a saber si se
puede optimizar algo. Gracias



foreach $hash (sort keys %subject_hash) {
    $_ = $subject_hash{$hash};
    if (!(--$i & 15)) {
        print gettext("There are"), " $i ", gettext("messages left"), "\n";
    }
    foreach $key (@regexp_list) {
��������
        if (/$key/i) {
            $insert=0;
            foreach $tmp ( @articles_to_get_list) {
                if ($hash == $tmp ) {
                    $insert=1;
                    break;
                }
            }
            if ($insert==0) {
                push (@articles_to_get_list, $hash);
                print gettext("Will get article number"), " $hash ",
                      gettext("with subject"), " $_\n";
            }
        }
    }
}

-- 
  musg0 @ irc                     http://personales.jet.es/olsago/
    _-(_)-  _-(_)-  _-( )-   (o_    _-(_)-  _-(_)-  _-(_)-  _-(_)-
  `(___)  `(___)  `(___)     //\  `(___)  `(___)  `(___)  `(___)
   // \\   // \\   // \\     V_/   // \\   // \\   // \\   // \\
"Like penguins among sheeps we live." -=[Debian GNU/Linux Woody]=-