Discussion :

[toto_titi]

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 :

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

 tototototot_tititit  321,321  456   0    1    5.8

Voici mon code

Code :

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

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+

[Chance666]

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

Code :

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

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
Edition : correction du code = j'avais écrit ça comme en C

[nyal]

Voici une autre possibilite :

Code :

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

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++;
}

[toto_titi]

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+