Discussion :

[lobiman]

Salut

Debutant en Perl, j´ai une preoccupation.
je sais lire tout un fichier ligne par ligne, mais ce que je voudrai faire c´est ceci:

soit ce fichier :

Code :

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

1
2
3
4
5
6
7
8
 
ville1 paris
ville2 marseille
ville3 lyon
ville4 brest
...
etc
ville15 Tours

je voudrai que simultanement en faisant la lecture, le programme verifie la ligne actuelle lu et la ligne suivante a lire avant de faire les affectations.

par exemple:
Si ville1 et ville2 existent alors affecter à une variable par exemple x<-paris et y<-marseille

[Woufeil]

Salut,

Et si tu voyais ton problème autrement ? Disons qu'il te faut lire la ligne actuelle et la ligne précédente (ce qui reviens au même donc). Tu verrais déjà mieux comment faire ?

Si tu ne comprends pas ce que je veux dire, je clarifierais bien sûr.

[lobiman]

bien evidemment le probleme reste le meme si on doit lire la ligne d´avant.... moi j´ai reflechit en avant tout simplement.

[Woufeil]

Ah bah non, le problème ne reste pas le même, c'est bien plus facile ! Il te suffit de garder le message précédent dans une variable, et hop, le tour est joué

[lobiman]

merci , c´est gentil mais un exemple m´avancerait bcp. Et comment incrementer a la ligne suivante? ou garder l´indice de la ligne precedente?

[Woufeil]

Voilà un petit code qui je pense ferais ce que tu veux...

Code :

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

1
2
3
4
5
6
7
8
open (FIC, "<tonfichier.txt") or die "Erreur : $!";
my $ligne_prec = <FIC>;
for (my $i = 2, my $ligne= <FIC>, $i++)
{
    #ici, $ligne_prec contient la ligne précédente, $ligne la nouvelle, et $i l'ince de la ligne en cours (1 pour la première)
    #tu fais ton traitement
    $ligne_prec = $ligne;
}

Ca te vas ?

[lobiman]

Ok merci j´essaie de voir la demarche... Mais il manque pas par hasard une boucle While? comment le ficher est t-il parcouru? juste avec la boucle "for"?

[Woufeil]

Et bien, regarde la condition de sortie de la boucle for, elle ne concerne pas la variable $i. En fait, c'est exactement la même condition que celle que tu mettrais dans une boucle while. J'ai utilisé une boucle for uniquement pour que tu puisses diposer d'un compteur de ligne

[Jedai]

Et bien, regarde la condition de sortie de la boucle for, elle ne concerne pas la variable $i. En fait, c'est exactement la même condition que celle que tu mettrais dans une boucle while. J'ai utilisé une boucle for uniquement pour que tu puisses diposer d'un compteur de ligne ;)

Mauvaise idée... D'autant que la boucle for s'écrit for(;;) et pas for(,,) et que sous cette forme Perl ne rajoute pas automatiquement la fonction defined() indispensable pour être sûr qu'on a bien atteint la fin du fichier et pas simplement une ligne à la valeur fausse.
$. prend automatiquement la valeur du numéro de l'enregistrement qu'on vient de lire, autrement dit dans le cas général, $. est égal au numéro de ligne (puisque les enregistrements sont séparés par $/ qui est par défaut "\n") :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
open my $input, '<', "tonfichier.txt" 
    or die "Erreur : $!";
my $ligne_prec = <$input>;
while( my $ligne = <$input> ) {
 
    #ici, $ligne_prec contient la ligne précédente, $ligne la nouvelle, et $. le numéro de la ligne en cours (1 pour la première)
    #tu fais ton traitement
    $ligne_prec = $ligne;
}

--
Jedaï

[Woufeil]

Peite faut d'innatention pour la forme du for, par contre pour la condition je ne savais pas... Tu sais à quoi c'est du ?