Discussion :

[Jasmine80]

Bonjour, j'aimerais écrire une expression régulière qui vérifie que dans un texte se trouvent 4 mots (Escherichia coli complete genome). Il doivent tous les quatre être présents au moins une fois. Est-ce possible de vérifier cela en une seule RegExp? L'ordre de ces 4 mots n'a aucune importance. Il faut juste vérifier leur présence.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
my $description = "Escherichia coli O157:H7 EDL933, complete genome";
if ($description =~ /escherichia.*coli.*genome.*complete/g){print "contient les 4 mots clés\n";}

Merci,


Jasmine,

[d-jo]

Bonjour,
Pourquoi ne pas faire ça dans une boucle ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
# la chaine
my $s=shift;
foreach  my $qw qw\toto tata titi\{
	warn "la chaine ne matche pas $qw" and last if($s !~ /$qw/ );
}

A+
Joris

[Jasmine80]

pour ça autant faire directement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
my $description = "Escherichia coli O157:H7 EDL933, complete genome";
if (($description =~ /escherichia/) && ($description =~ /coli/) && ($description =~ /complete/) && ($description =~ /genome/)){print "contient les 4 mots clés\n";}

Merci, apparemment il n'y a pas en une seule ExpReg simple.
Bon week end,


Jasmine,


PS : en fin de compte, je n'ai que 2 groupes de mots clés "escherichia coli" et "complete genome" j'aurai donc un simple if(()&&())

[Jedai]

La réponse est : ce n'est pas actuellement possible (à part à lister l'ensemble des possibilités de combinaisons mais ce serait beaucoup plus lent que la très bonne solution proposée par d-jo). Je crois qu'en Perl6 il sera possible de faire quelque chose comme ça (avec '&' plutôt que '|' peut-être) mais pas avec Perl5.

--
Jedaï

[Jasmine80]

Ce que je veux c'est sortir de la boucle sans rien faire si tous les mots ne sont pas présents. Si ils le sont dans ce cas, j'ai une série d'instructions.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
my $description = "Escherichia coli O157:H7 EDL933, complete genome";
if (($description =~ /escherichia coli/) && ($description =~ /complete genome/))
   {
                       "série d'instructions"
   }

Jasmine,


PS: la fonction print c'était juste afin de vérifier que je rentrais bien dans mon if avant d'écrire la suite des instructions.