[langage] [debutant] expression reguliere

Bonjour,

J aurais besoin d'un p tit coup de main.
Je chercher a parser un fichier et sur chacune des lignes de ce fichier je veux collecter des informations:
Je souhaite recuperer le nom et les 5 parametres numeriques du fichier "tutu"

format d' une ligne

Code:

---

tototototot_tititit 321,321 456 0 1 5.8

---

Voici mon code

Code:

---

1 2 3 4 5 6 7 8 9

open(FLUX, "tutu"); @LIGNES = <FLUX>;   foreach $line (@LIGNES){ if ($line =~ m/(^\w+)(\d+)(\d+)(\d+)(\d+)(\d+)/){ print("LIGNE[$i]= $1: $2,$3,$4,$5,$6\n");} $i++; }

---

Et je n arrive que a recuperer le nom mais pas le reste des parametres.
Merci de me passer un coup de main.

A+

Bonjour,
je pense que le code suivant devrait répondre à tes attentes :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

open(FLUX, "tutu"); @tabligne = <FLUX>; $i=1; while ($ligne = pop @tabligne) { @lignesplit = split (/ +/, $ligne); print "LIGNE[$i]= $lignesplit[0]:"; for($j=1; $j<6; $j++) print "$lignesplit[$j],"; $i++; print "\n"; }

---

Y a surement plus efficace et plus "propre" mais je débute aussi :wink:
Edition : correction du code = j'avais écrit ça comme en C :roll:

Voici une autre possibilite :

Code:

---

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

my $pat = " +([0-9,.]+)"; open(FLUX, "tutu"); @LIGNES = <FLUX>;   foreach $line (@LIGNES){ if ($line =~ m/^(\w+)${pat}${pat}${pat}${pat}${pat}/) { print("LIGNE[$i]= $1: $2,$3,$4,$5,$6\n");} } $i++; }

---

Merci bien pour votre aide.

Le perl rend bien des service mais au debut je trouve ca un peu obscure...
C'est bien d'avoir eut plusieuers exemples, comme le dit la devise Perl :TMTOWTDI : There is More Than One Way To Do It

Merci A+