🚀 go-pugleaf

Hola a ver que se puede decir:
>. 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
>
>
Lo que creo un poco ineficiente es el (if ($hash == $tmp ) ) Si pones:
$insert=1 if $subject_hash{$tmp};# lo que estas haciendo es ver si existe un
valor con esa clave directamente, las llaves on unicas
Esta instrucci�n creo que te ahorra el primer bucle, y adem�s no que haces
con (--$i &15)

Bueno espero que te sirva.


> foreach $hash (sort keys %subject_hash) {  #�Por que ordenar?
>     $_ = $subject_hash{$hash}; (Sobra)
>     if (!(--$i & 15)) { # usa unless
>         print gettext("There are"), " $i ", gettext("messages left"),
"\n"; # �que es gettext?Para que sirve?Sobra?
>     }
>     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]=-