Perl, actions sur fichier [Résolu/Fermé]

Signaler
Messages postés
4143
Date d'inscription
dimanche 20 avril 2008
Statut
Contributeur
Dernière intervention
8 mai 2011
-
Messages postés
4143
Date d'inscription
dimanche 20 avril 2008
Statut
Contributeur
Dernière intervention
8 mai 2011
-
Bonjour à tous! Voilà mon souci. Je voulais savoir (en perl) comment lire une ligne dans un fichier, l'afficher, la modifier ou en rajouter une autre...
Par exemple:

J'ai un fichier test.txt dans mon /home/kharec. Il contient les lignes:

Ceci
est
un
test

Comment écrire le script qui:

0 - Lira cette ligne.
1 - Affichera la ligne 3
2 - Copiera la ligne 3 dans un autre fichier.
3 - Ajoutera une cinquième ligne qui dirait par exemple "Fin du fichier".

Merci de votre aide!

2 réponses

Messages postés
21331
Date d'inscription
jeudi 4 novembre 2004
Statut
Modérateur, Contributeur sécurité
Dernière intervention
30 octobre 2019
3 542
Salut,

Je vais te donner quelques indications et ensuite tu nous montrera ce que tu as essayé

1.
- utilise l'opérateur <> sur un fichier passer en argument
- <LIRE> sur un handle de fichier LIRE

2.
- utilise la variable prédéfinie $.
- lance un compteur $ligne++ pour compter les lignes parcourues

3.
- ouvre un handle en écriture ou ajout et quand le compteur est à 3 ou $. égal 3 fait un print HANDLE

4.
- ouvre un handle de fichier en mode ajout et écrit la ligne (elle sera écrite à la fin de fichier).
- pour écrire la ligne dans un endroit précis il y a plusieurs possibilités :
a. utilisation d'un fichier temporaire
b. stocker le fichier dans un tableau et ajouter un nouvel élément à la position désirée
etc.

Messages postés
4143
Date d'inscription
dimanche 20 avril 2008
Statut
Contributeur
Dernière intervention
8 mai 2011
486
Merci beaucoup! Je crois avoir une idée, je vous la posterai =)