Discussion :

[parannabell]

Bonjour à tous,

je prends le risque de me faire lincher, mais je n'ai pas trouvé la réponse à ma question débile toute seule....

Je voudrais lire uniquement la 1ere ligne d'un fichier texte.... et faire une opération uniquement sur celle-ci.

Donc while (<FICHIER>) ne convient pas.

Merci de m'apporter votre aide... avec indulgence !

[Jedai]

Bonjour à tous,

je prends le risque de me faire lincher, mais je n'ai pas trouvé la réponse à ma question débile toute seule....

Je voudrais lire uniquement la 1ere ligne d'un fichier texte.... et faire une opération uniquement sur celle-ci.

Donc while (<FICHIER>) ne convient pas.

Merci de m'apporter votre aide... avec indulgence !

Où est la corde, trouvez moi un bel arbre... Ne t'inquiète pas ça ne fera pas mal !
Par ailleurs ta question trouve réponse dans notre magnifique FAQ, que je t'invite à consulter de toute urgence.

En effet <> est un opérateur à part entière qui permet de lire dans un filehandle ouvert, enregistrement par enregistrement, un enregistrement étant défini par son caractère de fin (par défaut c'est un saut de ligne, ce qui explique que <> lise d'habitude ligne par ligne).
Tu peux donc l'utiliser dans une boucle while() mais également à l'extérieur, dans une affectation normale :

Code :

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

1
2
 
my $ligne = <$filehandle>;

Attention, si tu essaie de l'affecter à un tableau, tu lis l'intégralité du fichier et tu le découpe en enregistrements que tu mets dans le tableau :

Code :

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

1
2
3
 
my @lignes = <$filehandle>;
print $lignes[0], $lignes[2]; #1ère et 3ème ligne

--
Jedaï