Grep avec plusieurs possibilite

Bonjour,

me revoila avec un nouveau probleme :P

J'ai un tableau contenant des lignes d'instructions et un autre avec des mots.
Mon but serait d'obtenir un nouveau tableau avec les lignes d'instruction qui contiennent au moins un des mots du 2eme tableau.

Ca donne : @tab = grep ( /exp1/ . /exp2/ . /exp3/, @instructions );

Mon probleme c'est que je n'arrive pas a faire en sorte que les exp* soient tiree du tableau qui contient ces expressions.

J'avais essaye ceci mais ca ne fonctionne pas :(

Code:

---

1 2 3

my $test = "/" . join ( '/ . /', @tab2 ) . "/";   @tab = grep ( $test, @instruction );

---

Dans l'ideal, il faudrait conserver l'ordre dans lequel se trouve les instructions, mais au vu des problemes que ca me pose, si l'ordre n'est pas conserve ce n'est plus trop grave :roll:

Merci par avance ;)

Ps : Desole pour les accents, je suis sur un clavier qwerty.

Code:

---

1 2 3

my $test = join ( "|", @tab2 );   @tab = grep { /$test/ } @instruction;

---

Merci pour cette reponse ca fonction tres bien.

Par contre j'avais oublie de preciser quelque chose. Dans ma regex j'avais :

/expression(,|$)/

Et avec ton script je n'arrive pas a obtenir le meme resultat.

Merci en tout cas pour ton aide :king:

Personne n'a d'idee ?? :(

Code:

---

1 2 3

my $test = join ( "(,|$)|", @tab2 );   @tab = grep { /$test/ } @instruction;

---

Ne fonctionne pas :/


Edit : En fait j'ai trouve, il suffit de rajoute les conditions supplementaire a chaque element du tableau. :aie:

Merci pour ton aide ;)

Je pense pas que tu est compris l'intérêt de cette ligne de code

Code:

---

my $test = join ( "|", @tab2 );

---

Le but est d'utiliser chaque case de ton tableau comme une regex et en faisant un join dessus avec "|" => ou

donc je ne sais pas pourquoi tu as besoin de

Code:

---

(,|$)|

---

Comme tu l'as bien dis, rajoute dans ton tableau les conditions alors.

Si tu as des caractères tel $ à rechercher, Tu devrais les protéger par des backslash ou utiliser carrément la fonction quotemeta.

Si si, j'avais bien compris l'utilite de la premiere ligne.
Je voulais rajouter (,|$), car mes mots sont cours (en moyenne 3 lettres) et se termine tous comme ca ou sont avec une virgule. Donc pour pas qu'il ne me les prennent n'importe ou dans la phrase, j'avais besoin de le preciser.

Quand j'ai modifie ta ligne par

Code:

---

my $test = join ( "(,|$)|", @tab2 );

---

Je n'avais pas pris en compte le fait que ca se mettait juste entre de entree du tableau et non sur toutes les entrees ( du certainement au manque de sommeil :mrgreen: ).

C'est pourquoi j'ai pense a rajouter dans chaque entree du tableau : (,|\$)

Du coup je me retrouve bien avec : exp1(,|$)|exp2(,|$)

Tout ca pour dire que ca marche tres bien.

Merci ;)