Discussion :

[Jasmine80]

Bonjour a tous,

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

Code :

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

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 :

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

[Jasmine80]

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

Code :

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

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

Merci.

[Gardyen]

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

suivant la doc

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 :

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

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 :

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

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

[Jasmine80]

Merci beaucoup pour ces explications, je peux clore le sujet


Nouveau code :

Code :

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

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);