Discussion :

[radahm]

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

[Invité]

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

[radahm]

j'ai fait un truc de ce type

Code :

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

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

[Jasmine80]

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 :

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

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.

[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,

[Jasmine80]

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 :

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

1
2
while(<FIC>){
    chomp $_;

[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,

[Jasmine80]

ç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.