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