Bonjour a tous,
Je me remets au Perl, pourriez-vous m'aider avec ma regexp ...
sortie :
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"; } }
Les espaces sont variables entre les valeurs.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
Pourquoi le premier motif n'est-il pas recupere ?
Merci pour votre aide
Jasmine
PS : desolee, mais mon clavier a perdu ses accents![]()
Partager