Discussion :

[beware]

bonjour,

dans mon script perl, je cherche plusieurs motif, et pour cela j'utilise les regexp. Cependant j'ai une petite question. Mon script est actuellement de la forme :

Code :

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

1
2
3
4
5
 
if ( /\w(ab|cd|ef)\w/ )
{ 
   bla bla
}

Serait-il possible afin de grandement simplifier les choses de faire quelque chose dans le genre :

Code :

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

1
2
3
4
5
 
if ( /\w(@liste)\w/ )
{
   bla bla
}

Merci

[djibril]

Voici un exemple :

Code :

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

1
2
3
4
5
6
my @liste = qw/ ab cd ef /;
my $regex = join("|", @liste);
my $toto = "azerty toto cd tutu";
if ( $toto =~ m{($regex)} ) {
   print "OK";
}

[Philou67430]

Voir aussi l'usage de l'opérateur qr//

[beware]

merci

en utilisant qr, j'ai réussi a faire ce que je voulais.