regexp - motif repete

Bonjour a tous,

Je me remets au Perl, pourriez-vous m'aider avec ma regexp ...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

while(my $l = <DATA>){ print $l."\n"; if ($l =~ m/(NTC_WP[\d\.]+_E\w+)+/g){   my @names = $l =~ m/(NTC_WP[\d\.]+_E\w+)+/g;   foreach my $n (@names){   print $n."\n"; } print "\n"; }   }

---

sortie :

Citation:

---

NTC_WP1.1.1_E02 NTC_WP1.1.8_E01_original NTC_WP1.2.4_E02 NTC_WP2.1_E04 NTC_WP2.3_E01 NTC_WP3.1_E03 NTC_WP4.1.1_E01 NTC_WP4.1.3_E03 NTC_WP4.2.2_E19

NTC_WP1.1.8_E01_original
NTC_WP1.2.4_E02
NTC_WP2.1_E04
NTC_WP2.3_E01
NTC_WP3.1_E03
NTC_WP4.1.1_E01
NTC_WP4.1.3_E03
NTC_WP4.2.2_E19

---

Les espaces sont variables entre les valeurs.
Pourquoi le premier motif n'est-il pas recupere ?

Merci pour votre aide


Jasmine

PS : desolee, mais mon clavier a perdu ses accents ;)

Petite remarque, j'ai simplemet utilise un split et ca fonctionne tres bien, mais j'aimerais comprendre pourquoi la regexp ne fonctionne pas.

Code:

---

my @names = split /\s+/, $l ;

---

Merci.

c'est simplement que tu répètes le matching

suivant la doc

Citation:

---

The global modifier //g allows the matching operator to match within a string as many times as possible. In scalar context, successive matches against a string will have //g jump from match to match, keeping track of position in the string as it goes along.

---

autrement dit, le premier match déplace le pointeur à la 2è position, et donc tu ne récupères pas la première quand tu matches la 2è fois.

tu peux visualiser cela en doublant le match dans la boucle:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

if ($l =~ m/(NTC_WP[\d\.]+_E\w+)+/g){ my @names = $l =~ m/(NTC_WP[\d\.]+_E\w+)+/g; my @n2 = $l =~ m/(NTC_WP[\d\.]+_E\w+)+/g; foreach my $n (@names){ print $n."\n"; } print "\n"; foreach my $n (@n2){ print $n."\n"; } print "\n"; }

---

donne

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

NTC_WP1.1.8_E01_original NTC_WP1.2.4_E02 NTC_WP2.1_E04 NTC_WP2.3_E01 NTC_WP3.1_E03 NTC_WP4.1.1_E01 NTC_WP4.1.3_E03 NTC_WP4.2.2_E19   NTC_WP1.1.1_E02 NTC_WP1.1.8_E01_original NTC_WP1.2.4_E02 NTC_WP2.1_E04 NTC_WP2.3_E01 NTC_WP3.1_E03 NTC_WP4.1.1_E01 NTC_WP4.1.3_E03 NTC_WP4.2.2_E19

---

quand tu récupères @names, tu récupères la totalité des matchs donc le pointeur est remis à zéro

Merci beaucoup pour ces explications, je peux clore le sujet :)


Nouveau code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

while(my $l = <DATA>){   if (my @names = $l =~ m/(NTC_WP[\d\.]+_E\w+)+/g){   foreach my $n (@names){ print $n."\n"; } print "\n"; } } close($file_names);

---