Modifier valeur dans un fichier

Bonjour,

J'ai un fichier texte de configuration

Code:

---

1 2 3 4 5 6 7 8

[SETTINGS] url=http://url.fr/appli.xsl polling=3600   [VERSION] version=0.6.0 os=windows

---

Je cherche à modifier la ligne "version=0.6.0" et mettre une nouvelle version à la place de 0.6.0. Par exemple, mettre 0.6.1 à la place du 0.6.0.
Je voudrais également que le script prenne la nouvelle version en paramètre

Merci d'avance

Stéphane

Citation:

---

Je cherche à modifier la ligne "version=0.6.0" et mettre une nouvelle version à la place de 0.6.0. Par exemple, mettre 0.6.1 à la place du 0.6.0.

---

Tu dois ouvrir ton fichier en mode lecture et vérifier son contenu ligne par ligne. Tu recopies les lignes dans un nouveau fichier ouvert en mode écriture.

Quelque chose de ce genre

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

my $new_version = '0.6.1';   ...     # ouverture et lecture du fichier   if( $ligne =~ m/version=0.6.0/){ print $outfile "version=$new_version\n"; } else{ print $outfile $ligne; }

---

FAQ : fichiers
FAQ : Regexp


Que veux-tu dire par :

Citation:

---

Je voudrais également que le script prenne la nouvelle version en paramètre

---

Est-ce l'utilisateur qui doit l'entrer? Regarde la variable @ARGV.

Citation:

---

Envoyé par sdebrois

Je cherche à modifier la ligne "version=0.6.0" et mettre une nouvelle version à la place de 0.6.0. Par exemple, mettre 0.6.1 à la place du 0.6.0.

---

Consulte notre article sur le sujet.

--
Jedaï

Pour compléter le post de jedai, j'ajouterais ceci : lorsqu'on souhaite travailler sur des fichiers de configuration, il est préférable d'utiliser des modules disponibles sur le CPAN qui sont très bien fait. Ils se nomment config::*, il y en a beaucoup.

Ton fichier ressemble a un fichier ini avec des sections. Pour le parser, je te recommande d'utiliser le module Config::Std. Il est très simple d'utilisation. Pour faire la modification de ton fichier, il suffit d'écrire ceci :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

use Config::Std;   # charger le fichier read_config 'TonFichier.txt' => my %config;   # lire ma version print $config{VERSION}{version},"\n";   # modifier $config{VERSION}{version} = '0.6.1';   # Update du fichier write_config %config;

---

Voilà