• # regexp

    Posté par . En réponse au message Des regexps plus rapides !. Évalué à 1.

    @regexp = ( qr/toto/, qr/t.t./, qr/^.{4}$/, );


    for my $chaine ( qw( tototo titi toto ) ) {

    print join( " + ", $chaine, ( grep { $chaine =~ $_ } @regexp ), "\n" );

    }