Perl, actions sur fichier

Résolu/Fermé
Kharec Messages postés 4143 Date d'inscription dimanche 20 avril 2008 Statut Contributeur Dernière intervention 8 mai 2011 - 17 août 2009 à 21:19
Kharec Messages postés 4143 Date d'inscription dimanche 20 avril 2008 Statut Contributeur Dernière intervention 8 mai 2011 - 18 août 2009 à 15:56
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

lami20j Messages postés 21331 Date d'inscription jeudi 4 novembre 2004 Statut Modérateur, Contributeur sécurité Dernière intervention 30 octobre 2019 3 567
18 août 2009 à 09:49
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.

0
Kharec Messages postés 4143 Date d'inscription dimanche 20 avril 2008 Statut Contributeur Dernière intervention 8 mai 2011 509
18 août 2009 à 15:56
Merci beaucoup! Je crois avoir une idée, je vous la posterai =)
0