Re: Trouver une correspondance dans un tableau de patterns

À (at) Wed, 27 Feb 2008 13:08:33 +0100,
xavier@groumpf.org (Xavier) écrivait (wrote):
> Soit un tableau d'expressions régulières my @patterns, et une expression
> my $string.
>
> @patterns n'est pas forcément trié.
>
> Ai-je une autre façon de faire que 
>
> my $found=0;
> foreach(@patterns){
>     if ($string =~ $_){
>         $found=1;
>         last;
>     }
> }
>
> Parce que, évidemment, si je fais ça sur tout un fichier de $string, je
> suis d'ordre N^2 est c'est lent (et moche, programmaticalement parlant)

Regardez du côté des modules Regexp::Assemble, Regexp::Optimizer et
autres Regexp::List... Vous devriez y trouvez votre bonheur ! ;-)

-- 
Paul Gaborit - <http://perso.enstimac.fr/~gaborit/>
Perl en français - <http://perl.enstimac.fr/>