Problème regexp

Salut,

J'ai des difficultés à trouver une regexp. Je veux parser un fichier de configuration dont certaines lignes ont le format suivant (espaces en début de lignes, espaces ou tabulation(s) entre le premier mot et la chaîne de caractères) :

Code:

---

1 2 3

host1 'cpu disk' host2 'cpu disk mem' host3 'disk'

---

Le but est d'extraire le mot en début de ligne et la chaîne de caractères entre quotes. A des fins de test, j'étais parti sur ce code (pour le moment, je n'ai pas mis les parenthèses destinées à l'extraction) :

Code:

---

1 2 3 4 5 6 7 8

open CONF, '<./config_file';   while(<CONF>) { if(m/\s+\w\s+'(\w\s?)*'/) { print $_; } }   close CONF;

---

Rien ne s'affiche.

J'ai décidé de procéder étape par étape, en testant ça :

Code:

---

if(m/^\s+\w/) { print $_; }

---

Toutes les lignes souhaitées s'affichent. Par contre, si je rajoute simplement ça :

Code:

---

if(m/^\s+\w\s+/) { print $_; }

---

ou même ça :

Code:

---

if(m/^\s+\w\s/) { print $_; }

---

plus rien ne s'affiche... Je ne maîtrise pas les expressions régulières mais jusqu'ici, ça devrait fonctionner... Si une âme charitable pouvait éclairer ma lanterne... :)

Errata : dans l'exemple de fichier de conf que je donne, les noms de machines utilisés contiennent des chiffres. Ce n'est pas le cas dans le fichier que j'utilise pour mes test. A terme, j'essaierai de faire évoluer la regexp pour travailler sur les IPs mais vu comme je me galère pour l'instant, ça attendra :D

Je pense que c'est un simple petit oubli de ta part, juste une distraction probablement :

Code:

---

1 2	m/\s+\w+\s+'([\w\s]*)'/

---

Tu avais oublié les "+" après les "\w"... ;)

--
Jedaï

Bon, étant donné que je ne connais pas ton fichier, je ne oeux pas savoir si mon expression marche correctemment, néamoins j'ai pensé à ça :

Code:

---

m/\s\w+\t'\w* |\s*'/

---

En tout cas, il match les chaînes que tu m'as donné, quand à savoir si il en match trop...

€dit : Oups, Jedai trop rapide pour moi, de bons réflexes tu as :lol:
En tout cas nous sommes d'accord sur la regex :wink:

Oh là là, le gros boulet... :oops:

Merci Jedaï, une fois de plus...

Tant que j'y suis et sans vouloir abuser, pourrais-tu m'aider à remplacer le premier \w+ par quelque chose qui matche indifféremment un FQDN quelconque ou une adresse IP ? :o

Hum, je dirais

Code:

---

m/\s\w+|[0-9:]+\t'\w* |\s*'/

---

Non ?

Woufeil, merci pour ta réponse, mais je ne comrends pas trop la partie [0-9:]. Il faut intéger un "." à ton ensemble, non ?

Bon, j'utilise ça pour l'IP :

Code:

---

m/\s+(\w+|[\d+\.?]*)\s+'(([\w\s\.]*))'/

---

Je pense qu'il n'y a plus qu'a rajouter le - pour les noms de machines et ça sera ok. Merci à tous les deux.

Oups, j'ai mis : à la place de point pour les ip :oops:
Mouais, je suis fatigué moi.

Ta version est bonne, pas de problèmes.