Il me semble que ça marche très bien la compilation de regexps en Perl.
J'utilise d'ailleurs ça dans certains de mes programmes...
Un exemple :
my @regs = ("foo", "b(a)r", "((?:i[^4<_-])|P{2,})\$");
@regs = map qr/$_/, @regs;
my @sent = ("foo", "ia", "bar");
for my $r (@regs) {
for my $s (@sent) {
print "ok $s matched by $r\n" if $s =~ m/$r/;
}
}
[^] # Re: toujours sur les regexps
Posté par Axioplase ıɥs∀ (site web personnel) . En réponse au journal Perl, Javouille, Lisaac|(Ruby|SmallTalk|etc..). Évalué à 3.
J'utilise d'ailleurs ça dans certains de mes programmes...
Un exemple :
my @regs = ("foo", "b(a)r", "((?:i[^4<_-])|P{2,})\$");
@regs = map qr/$_/, @regs;
my @sent = ("foo", "ia", "bar");
for my $r (@regs) {
for my $s (@sent) {
print "ok $s matched by $r\n" if $s =~ m/$r/;
}
}
print "Done\n";