Si je veux vérifier qu'une chaîne matche plusieurs regex, j'aurais tendance à faire naïvement :
if ($s =~ /toto/ && $s =~ /titi/ && ... )
Bon, trouvant ça assez laid, je ferais plutôt
foreach my $qw qw\toto tata titi\{
warn "la chaine ne matche pas $qw" and last unless ($s =~ /$qw/ );
}
L'interet principal étant que j'ai une vrai liste de conditions.
Le problème est que ça marche bien si je veux savoir si ma chaîne (…)