Regexp Selection Perl

**Space23** · 24/08/2011, 12h06

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 :

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

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 :

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

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?

**stoyak** · 24/08/2011, 12h40

Code :

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

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 ?

**Space23** · 24/08/2011, 14h12

Arf presque, cela me donne ça :

Code :

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

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

**Space23** · 24/08/2011, 16h14

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

.

Merci.