Lecture d'une partie d'un fichier

Version imprimable

15/04/2009, 12h05
radahm

Lecture d'une partie d'un fichier

je veux lire une partir d'un fichier txt en perl.
voila un extrait du contenu du fichier :
coucou
ca va?
...
start of fields
chp1
chp2
chp3
end of filds
Au revoir
...

je veux recuperer dans une variable seulement
chp1
chp2
chp3
Merci
15/04/2009, 12h35
Invité

Ton code est déjà bien......
Tu peux t'inspirer de cette discussion

j'ai fait un truc de ce type

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
while(<FIC>)
        {
            if($_ eq "start of fields")
            {
                $top_arret_lect = 1;
                $liste_chps = $_;        
            }
            if($top_arret_lect eq 1)
            {
                $liste_chps .= ", " . $_;
            }
            if(($_ eq "end of filds") and ($top_arret_lect eq 1))
            {
                là je voudrais arreter la lecture du fichier et continuer le prg
            }

ds le 3 eme if
if(($_ eq "end of filds") and ($top_arret_lect eq 1))
je voudrais arreter la lecture du fichier et continuer le prg, comment faire svp?

Merci

15/04/2009, 14h23
Jasmine80
Citation:

ds le 3 eme if
if(($_ eq "end of filds") and ($top_arret_lect eq 1))
je voudrais arreter la lecture du fichier et continuer le prg, comment faire svp?
Code:

1 2 3 if(($_ eq "end of filds") and ($top_arret_lect == 1)){ last; }
Utilise la fonction last();

Utilise l'opérateur == pour les comparaisons numériques.
15/04/2009, 15h33
radahm

Merci,
encore un ptit pb, mon pg ne rentre jamais dans if($_ eq "start of fields") malgrès que cette chaine est bien lue.
est ce que c un pb de retour à la ligne?
comment puis je le resoudre?

Merci,
15/04/2009, 15h42
Jasmine80
Citation:

Envoyé par radahm

encore un ptit pb, mon pg ne rentre jamais dans if($_ eq "start of fields") malgrès que cette chaine est bien lue.
est ce que c un pb de retour à la ligne?
comment puis je le resoudre?

Pour enlever le retour à la ligne, utilise la fonction chomp.
Code:

1 2 while(<FIC>){ chomp $_;
15/04/2009, 23h59
radahm

ça marche. Merci,
Encore une qst...
je cherche une methode simple qui me donne le nb de ligne dans un fichier se trouvant entre deux balises.

Merci,
16/04/2009, 08h12
Jasmine80

Citation:

Envoyé par radahm

ça marche. Merci,
Encore une qst...
je cherche une methode simple qui me donne le nb de ligne dans un fichier se trouvant entre deux balises.

Merci,

$. est une variable spéciale contenant le numéro de la ligne lue. Cherche une solution de ce côté là ou utilise une variable incrémentée.