[Perl] Question sur le test if

[Résolu/Fermé]
Signaler
Messages postés
437
Date d'inscription
jeudi 27 décembre 2007
Statut
Membre
Dernière intervention
13 septembre 2013
-
Messages postés
437
Date d'inscription
jeudi 27 décembre 2007
Statut
Membre
Dernière intervention
13 septembre 2013
-
Bonjour,

J'aimerai savoir si il existe une syntaxe équivalente a egrep du style "titi|toto" pour la condition OR a l'intérieur d'un test

Pour expliquer ma demande, passons au script

Version actuelle :

if (($variable eq "stringA") | ($variable eq "stringB")) {
  print "String match\n";
}

J'aimerai regrouper le test en un genre de

if ($variable eq "stringA|strigB" {
  print "String match\n";
}

Évidemment, cette syntaxe ne fonctionne pas,
Mais j'aimerai savoir si il y a quelque chose d'approchant afin de raccourcir un peu le code ...

Merci d'avance :)

2 réponses

Une ligne du genre:
print "String match\n" if ($variable =~ m/string(A|B)/);
devrait satisfaire tes exigences.
Bonne journée.
Messages postés
437
Date d'inscription
jeudi 27 décembre 2007
Statut
Membre
Dernière intervention
13 septembre 2013
83
Impec'

Merci beaucoup !