Regexp Selection Perl

Bonjour je travaille sur une expression régulière en perl, j'arrive à faire le peu de chose que j'ai pu trouver sur le net mais pour le reste je bloque :

Voici mon expression régulière de départ :

Code:

---

1 2 3 4 5 6 7

my $message = $ARGV[2]; if ($message =~ /\[(.*)-\d*\]/) { print "Regexp passé result : " . $1 . "\n"; }   Entrée : [ProjetA-1234] Test. Sortie : Regexp passé result : ProjetA

---

Celle-ci marche parfaitement, maintenant ce que je souhaite afficher c'est n fois le même pattern s'il existe plusieurs fois dans la chaine :

Code:

---

1 2 3

Entrée : [ProjetA-1234] Test1 [ProjetB-5678] Test2. Sortie : Regexp passé result : ProjetA Regexp passé result : ProjetB

---

Ce que j'ai du mal à faire c'est :

• Construire la regexp.
• Récupérer les résultats sachant que je ne sais pas combien il y en aura à l'avance

Est-ce que quelqu'un s'y connait là dedans?

Code:

---

1 2 3 4 5 6 7 8 9

#!/usr/bin/perl use Carp; use strict; use warnings;   my $message = '[ProjetA-1234] Test1 [ProjetB-5678] Test2.'; if ( my @resultat = $message =~ m/\[(.+?)-\d*\]/g ) { print "Regexp passé result : @resultat\n"; }

---

Est-ce que cela répond à ta question ?

Arf presque, cela me donne ça :

Code:

---

1 2 3 4 5 6 7

Entrée : [ProjetA-1234] Test1 Sortie : Regexp passé result : ProjetA OK   Entrée : [ProjetA-1234] Test1 [ProjetB-5678] Test2. Sortie : Regexp passé result : ProjetA-1234] Test1 [ProjetB KO

---

Bon en fin de compte j'ai trouvé un moyen pour me contenter simplement de la première occurence (ProjetA).

Je met le post en résolu mais si quelqu'un à une solution pour récupérer chaque occurence je suis intéressé pour ma curiosité personnel :mrgreen:.

Merci.

La solution de stoyak me donne ceci :

Citation:

---

Regexp passé result : ProjetA ProjetB

---

Tu es sûr de l'avoir bien testé ?

Quel boulet ! :oops:

Je n'ai pas vu que le (.*) avait été remplacé par (.+?) 8O.

(va se cacher ^^).

En tout cas merci!!

Citation:

---

Envoyé par djibril

La solution de stoyak me donne ceci :

Tu es sûr de l'avoir bien testé ?

---

:merci: