Discussion :

[bazdik]

slt a tous

voila, je suis en train de manipuler un fichier texte avec perl,
en effet ce que je fait c'est extraire des donnees (ca c'est bon) puis j'aimerai bien supprimer la ligne traiter (ca c'est ) je vous envoie mon petit programme si quelqu'un peu m'aider....

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
#!/bin/perl 
use strict;use warnings;
 
open (F, '+< /root/.gnome-desktop/fichier' )|| die "probleme d'ouverture du fichier ";
while(<F>){
###je fait le traitement de la ligne $_
$_ = "";
chomp $_;#je supprime le retour chariot
###ce j'arrive pas a terminer est la suite, j'ai pas su quoi faire
}
close F;

[Jedai]

Tout d'abord : ON NE POSTE PAS DANS CE FORUM, on poste dans les sous-forums, comme c'est clairement indiqué en haut de ce forum... Ton prochain message ici sera supprimé sans avertissement (à part un MP), pour celui-ci je me contente de le déplacer dans le sous-forum Langage.


On ne peut pas simplement "supprimer une ligne" dans un fichier, ceci est rendu impossible par la façon dont est stocké un fichier. En effet le fichier est une suite d'octet contigus en mémoire (ou du moins qui nous apparaissent ainsi à notre niveau), donc "supprimer une ligne" implique forcément de déplacer toute la fin du fichier pour combler le trou...

C'est pourquoi on rencontre plusieurs stratégies pour traiter ce problème :

1. On ouvre en lecture/écriture, on met l'ensemble du fichier en mémoire (par exemple dans un tableau de lignes), on le modifie là, on tronque le fichier initial et on réécrit la version modifiée
2. On lit enregistrement par enregistrement (ligne par ligne par exemple) le fichier, et on modifie chaque enregistrement selon ses besoins, puis on le réécrit dans un autre fichier, finalement on écrase le fichier original par la version modifiée.
3. Variation 1 : On ne met en mémoire que la fin du fichier, la partie à partir de la première modification
4. Variation 2 : On utilise un tampon pour mettre à jour la fin du fichier en procédant par petit bout, sans écraser les données qu'on n'a pas encore mis en mémoire.

Chacune de ses solutions a ses avantages et ses inconvénients :

1. Pour les gros fichiers cette stratégie est très lourde en mémoire.
2. Bonne solution, sauf si ton disque est encombré... De plus ce n'est pas forcément optimal de tout recopier alors qu'on a modifié qu'un enregistrement
3. Pas mal, mais même problème que le 1 si l'enregistrement est au début du fichier.
4. L'idéal, ou presque, mais très complexe à mettre en place, surtout de façon intelligente (c'est à dire par exemple en permettant de faire plusieurs modifications avant de commencer à modifier le fichier).

Je te conseille de t'en tenir à la solution 2 dès lors que tu as de grosses modifications à effectuer sur des fichiers dont tu n'es pas sûr de la taille.
La solution 1 peut convenir si tu es sûr que tes fichiers resteront petits (mais on peut rarement être vraiment sûr dans un environnement informatique).

La solution 4 est trop complexe pour être utilisé à la main, mais ça tombe bien, Perl est fourni en standard depuis la 5.8 avec un module Tie::File qui implémente ce modèle de façon intelligente. (Tie::File est compatible avec Perl depuis la version 5.4 mais n'est pas en standard avec les versions inférieures à la 5.8) Tie::File permet de "lier" un tableau à un fichier, de sorte que tu peux manipuler ton fichier comme s'il s'agissait d'un tableau de lignes, et Tie::File s'occupe de toutes les modifications réelles du fichier. Par exemple tu peux supprimer une ou des lignes avec splice().

--
Jedaï