Discussion :

[Jasmine80]

J'ai un problème avec une expression régulière :

Code :

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

1
2
3
4
5
6
7
8
my $data = q{
Listeria_monocytogenes	 100.00
Listeria_welshimeri	  93.09 100.00
Bacillus_anthracis	  80.01  78.29 100.00};
 
foreach ( my ($id, $values) = $data =~ m/(\w+)\s+([\d\.\s]+?)\s*\n/g){
	print "$id >> $values\n";
}

Pourriez-vous m'aider?

Merci,

[Beniou]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
my $data = q{
Listeria_monocytogenes	 100.00
Listeria_welshimeri	  93.09 100.00
Bacillus_anthracis	  80.01  78.29 100.00};
 
while ($data =~ m/(\w+)\s+((\d+\.\d+\s*)+)/g){
  my $id = $1;
  my $values = $2;
  chomp($values);
  print "$id >> $values\n";
}

Je ne prends pas les sauts de lignes "\n" car ta dernière ligne n'en comporte pas. Du coup, j'utilise un chomp pour oter le saut de ligne.

[Jasmine80]

Merci pour ta réponse.

[Mr6]

Juste pour le plaisir (puisqu'il y a déjà la solution de principe) :

Code :

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

1
2
3
map {print if s/(\w+)\s+((\d+.\d+\s*)+)/$1 >> $2\n/ } (split /\n|$/,$data);
ou
perl -lne "print if s/(\w+)\s+((\d+.\d+\s*)+)/$1 >> $2/" mon_fichier.txt

@+
Mr6