Discussion :

[sdebrois]

Bonjour,

J'ai un fichier texte de configuration

Code :

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

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

[Jasmine80]

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 :

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

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 :

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.

[Jedai]

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ï

[djibril]

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 :

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

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à