Encore les fichiers

Bonjour,

Je début en perl (1semaine) et je cherche à modifier un ficher "à la volée".

Je m’explique, modifier le nom de mes LVM dans un fstab sans utiliser l'opérateur ">" car si la machine plante ou s'il y a une coupure de courant je suis dans la mouise. Du il faut que j'utilise "+<"(je suppose) mais je ne comprends pas comment l'utiliser. Pour le moment j'utilise "sed (sed -i 's/nom/nouveauNom/g' $file", mais comme j'apprends, j'aimerai vraiment tous faire en perl.

Ex:

Code:

---

1 2 3 4 5 6 7 8 9

my @previousName = qw (LVroot LVtoto LVtiti); my $newName; foreach (@previousNameLV){ $newName = join('V_',split(/V/,$_)); `sed -i 's/$_/$newName/g' $fstab`; `sed -i 's/$_/$newName/g' $grub`; `lvrename $vg$_ $vg$newName`; $LVname .= $newName."\n"; }

---

Pour info j'utilise le tableau comme ci dessous avec d'autre traitement, ce qui permet d'incrémenter tous ce que je voudrais modifier et ainsi ne rien oublier:

Code:

---

my @pathLV = grep(/LV[a-z]/,`df`);

---

Je pinaille mais j'ai vraiment envie d'aller au fond des choses.

UN GRAND MERCI D'AVANCE:D

En principe, il n'est pas possible de lire et d'écrire dans le même fichier (il y a des exceptions et des moyens de contournement, mais bon...). La solution fiable consiste plutôt à renommer ton fichier en entrée, ouvrir en écriture un nouveau fichier ayant le nom d'origine de ton fichier, lire ton fichier d'origine et écrire dans le nouveau fichier (puis faire le ménage quand tu es sûr que tout s'est bien passé).

Merci, je vais donc pour le moment continuer avec sed. Après tous ça se marie bien :P

Pourquoi pas si ça marche bien, mais je voudrais ajouter qu'il existe un mode "script uniligne" de Perl permettant de faire tout cela de façon transparente. Par exemple, le script uniligne Perl suivant:

Code:

---

perl -i.bak -pe 's/toto/titi/g' fichier_entree.txt

---

remplacera toutes les occurrences de toto par titi dans le fichier fichier_entree.txt et sauverardera le fichier d'origine dans fichier_entree.txt.bak.