Perl

[Perl] lecture/écriture d'un fichier

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [Perl] lecture/écriture d'un fichier

scOulOu

Born Under Saturn

Voilà je voudrais parcourir un fichier en lecture/écriture, pr pouvoir modifier une ligne si besoin est. J'ai fait ça, mais ça marche pas :

Code :

my $is_id;
open(NEXT_TARGET, '+<'.'mon_fichier');
while(<NEXT_TARGET> ) {
if (/^$param_to/) {
$is_id = "true";
print NEXT_TARGET "Quelque chose"."\n";
last();
}
}
close(NEXT_TARGET);
if (!$is_id) {
open(NEXT_TARGET, '>>'.'mon_fichier');
print NEXT_TARGET "Quelque chose"."\n";
close(NEXT_TARGET);
}

Mon deuxièmre if marche quand il faut, ce qui prouve qu'il rentre bien dans le premier. Mais malgré tout, il se refuse à écrire ds le fichier pdt qu'il le lit. Comment faut s'y prendre ?

Publicité

burgergold

5$? va chez l'diable!

le mieux selon moi c d'ouvrir le fichier, le balancer dans un array, fermer le fichier, le réouvrir en écriture avec >, parcourir le array et réécrire le fichier

---------------
http://www.boincstats.com/signature/user_664861.gif

scOulOu

Born Under Saturn

burgergold a écrit :

le mieux selon moi c d'ouvrir le fichier, le balancer dans un array, fermer le fichier, le réouvrir en écriture avec >, parcourir le array et réécrire le fichier

Ouais, je v p-e finir par en arriver là, effectivt :jap:
Mais ça fait chier de pas être foutu d'utiliser le +<

Aricoh

gentil mais fo po pousser

pas mieux que Burgergold, je procède comme lui avec des fichiers pas trop gros.

pour les gros fichiers :

- copie du fichier d'origine par sécurité
- ouverture du fichier sauvegardé en lecture seule
- création d'un second fichier
- pour chaque ligne, je fais les modifs si besoin et quoiqu'il arrive, j'écris la ligne dans le new fichier

---------------
Samsung Galaxy S1 -> Samsung Galaxy S2 -> Samsung Note 2 -> Huawei Ascend Mate 7 -> ZTE Axon 7 -> OnePlus 6T -> Oppo Find X2 PRO -> Google Pixel 9 PRO XL

FORUM HardWare.fr

Programmation

Perl

[Perl] lecture/écriture d'un fichier

Sujets relatifs
[OPENGL] Créer un fichier .raw [RESOLU]	[c] perl embed sous linux
[PHP] Mettre un argument à un fichier en "include"	[Perl] Effacer éléments du tableau
modifier la premier ligne d'un fichier txt en ASP	changer l'attribut taille d'un fichier ???
[applet]lire un fichier coté serveur [resolu]	[PHP] lecture d'un fichier
[PHP] Vérifier l'existence d'un fichier
Plus de sujets relatifs à : [Perl] lecture/écriture d'un fichier

Page générée en 0.028 secondes