Perl

[PERL] Parse d'un fichier de configuration

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [PERL] Parse d'un fichier de configuration

masterlolo

Bonjour,

Je souhaite extraite d'un fichier de configuration quelques lignes, jusqu'à la rien d'extraordinaire, sauf peut être pour un novice !
Voici une partie de mon fichier de configuration :

# Config File
#
# Create and configure extension PC
#
extension PC set lang=FR
extension PC set timeoffset=7200
...
#
# Create and configure user PC_10
#
user PC_10 set addr=10.10.10.10
user PC_10 set dhcp=disable
...
user PC_10 set ping-timeout=300
#
# Create and configure user PC_11
#
...

Je souhaite récupérer uniquement les éléments user PC_10, user PC_11....
Vu que je ne connais pas le nombre de PC avant l'exécution du script, je commence par selectionner les lignes de commentaires :

Code :

my $FILE = "/home/masterlolo/config.pc";
my ($LIGNE, @PC, $PC, @DATA, $DATA);
if (-e $FILE)
{
open (FILE, "$FILE" );
foreach $LIGNE (<FILE> )
{
chomp $LIGNE;
if ($LIGNE =~ /# Create and configure user/)
{
@DATA = split (/# Create and configure user /, $LIGNE);
push(@PC,@DATA);
}
}
}
print ("@PC" );

Le résultat est alors :

PC_10 PC_11 PC_12

Ce qui me gène dans ce résultat, c'est qu'entre chaque nom des PC, il y a un double espace !
Je n'arrive pas à savoir d'où il provient !

Ensuite, je pense que je n'aurai plus qu'a relire @PC, et extraire les données comme addr, dhcp, ... , ping-timeout.
Mais j'aimerai un avis avant de continuer, est-ce que je ne suis pas entrein de créer une usine à gaz ? :??:

Publicité

franceso

est-ce que c'est pas un peu dangereux de te baser uniquement sur les commentaires ? (étant donné que les commentaires ne sont pas obligatoires, tu pourrais te retrouver avec un bloc de définition de PC_xx non commenté ou commenté sous une autre forme que celle que tu attends)

sinon, comment tu veux procéder après ? tu veux utiliser des hashmaps pour stocker les valeurs lues ?

Pour ton problème de détection des PC_xx, je procèderais ainsi :

Code :

if( $LIGNE =~ /^\# Create and configure user (PC_\d+)/ )
{
push( @PC, $1 );
}

normalement, tu devrais éviter les espaces indésirés...

Message cité 1 fois
Message édité par franceso le 02-06-2006 à 09:36:35

---------------
TriScale innov

pospos

Il y a pas mal de modeuls de parsing de fichier de configuration sur cpan (search.cpan.org), chacun specialisé dans tel ou tel format.
Il existe aussi un parser "automatique" qui pourrait bien marcher directement pour toi: Config::Auto
http://search.cpan.org/~cosimo/Config-Auto/

masterlolo

franceso a écrit :

est-ce que c'est pas un peu dangereux de te baser uniquement sur les commentaires ?

Ce n'est pas faux !

J'ai revu ma méthode pour extraire mes données :

1/ Je met le fichier dans un tableau
2/ Sur le tableau, j'utilise les lignes commençant par user et j'extrait les informations.
3/ J'affiche pour vérifier le résultat

cela fonctionne à priori sur mon fichier, je n'ai pas encore eu d'erreur lors de l'execution.
mais je suis prenneur de tous les commentaires

Code :

my $FILE = "/home/masterlolo/config.pc";
my ($LIGNE, @LIGNE, $DATA, @FILE, $CHAMP);
if ( -e $FILE)
{
open (FILE, "$FILE" );
@FILE = <FILE>;
close (FILE);
@FILE = grep(/^user\\s/, @FILE);
foreach $DATA (@FILE)
{
@LIGNE = split(/^user\\s/,$DATA);
foreach $LIGNE (@LIGNE)
{
# Traitement des lignes en UNSET
if ($LIGNE =~ /\\sunset\\s/)
{
my ($USER,$TRASH,$CHAMP) = split(/\\s+/,$LIGNE);
$CHAMP =~ s/-/_/g;
print "[DEBUG] $CHAMP=unset pour $USER; \n";
}
# Traitement des lignes en SET
if ($LIGNE =~ /\\sset\\s/)
{
my ($USER,$TRASH,$SET) = split(/\\s+/,$LIGNE);
($CHAMP, $SET) = split(/=+/,$SET);
$CHAMP =~ s/-/_/g;
print "[DEBUG] $CHAMP='$SET' pour $USER; \n";
}
}
}
}
else
{
print ("$FILE introuvable !" );
}

Message édité par masterlolo le 04-06-2006 à 13:39:41

FORUM HardWare.fr

Programmation

Perl

[PERL] Parse d'un fichier de configuration

Sujets relatifs
[VBA Excel] Chemin fichier ouvrir	concatenation 3 fichier dans un autre en dos
recuellir le nom des machines allumées dans un fichier	[EXCEL][VBS] fermeture de fichier
extraction d'une partie d'un fichier sous condition (sed)	ouverture d'un fichier excel avec vba
Creer tables à partir d'un fichier texte	[tomcat] telechargement de fichier lent
[perl] supprimer les emails bounces (retour/erreur) d'une base mysql	Linux - Redirection de la sortie vers un fichier
Plus de sujets relatifs à : [PERL] Parse d'un fichier de configuration

Page générée en 0.078 secondes