Discussion :

[RaF25]

Bonjour,

J'ai un petit soucis dans l'utilisation d'une expression régulière.

En entrée, je possède une ligne d'un fichier de configuration (samba en l'occurence).
L'idée est de séparer la zone de gauche de ma ligne, de celle de droite.
La séparation est représentée par le signe "=".

Exemple :
workgroup = domaine1

Jusque là, pas de problèmes. J'ai utilisé cette expression ci et tout semble fonctionner à merveille :
$smb[$j] =~ /(.+)=(.+)/;
my $section = $1;
my $valeur = $2;

section me donne > workgroup
valeur me donne > domaine1

En revanche, je ne m'en sors pas lorsque je dois traiter la ligne suivante :
ldap admin dn = uid=sambamgr,o=test,c=fr

Du fait de la présence de plusieurs signes "=", l'expression me renvoi des valeurs erronées :
section me donne > ldap admin dn = uid=sambamgr,o=test,c
valeur me donne > fr

J'aimerais pouvoir créer une expression qui ne traite que le premier signe "=" rencontré.

Ainsi je souhaiterais obtenir pour le second exemple :
section > ldap admin dn
valeur > uid=sambamgr,o=test,c=fr

Si quelqu'un pouvait m'aider ou au moins me mettre sur la voie ce serait très sympa.

Je vous remercie par avance.

[lu6fer]

Pour ton expression tu devrai matcher les espaces aussi

Code :

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

$chaine =~ /(.+)\s=\s(.+)/

Comme ca il prendra le 1er '=' au lieu de prendre celui de la fin

Puis ce que de toute facon la conf ldap ne doit pas contenir d'espaces, tu ne devrai t'en sortir qu'avec samba

[RaF25]

Merci pour cette réponse.

En effet, ta solution fonctionne pour le cas où j'ai un espace avant et après le signe "=".
Par contre, mes administrateurs ont la possibilité de modifier le smb.conf manuellement. Certains ne prennent pas soin de placer un espace avant et après et mon script ne fonctionnera pas pour les lignes telles que celles ci :


workgroup=domaine1
ldap admin dn=uid=sambamgr,o=test,c=fr
logon path =


Avec cette limitation supplémentaire, comment faire ?

En tous les cas encore merci pour cette réponse.

Par ailleurs, j'en profite pour demander si quelqu'un a connaissance d'un bon livre sur les expessions rationelles en perl ?

[lu6fer]

peut etre comme ceci alors

Code :

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

$chaine =~ /(.+)\s?=\s?(.+)/

[RaF25]

Malheureusement ça ne fonctionne pas avec cette fameuse chaine :

ldap admin dn = uid=sambamgr,o=test,c=fr

Résultat :
ldap admin dn = uid=sambamgr,o=test,c
et : fr

Je ne parviens pas à comprendre pourquoi ce n'est pas le premier caractère "=" qui est traité mais le dernier.
Quelqu'un aurait une explication à ce sujet ?

Merci d'avance.

[RaF25]

Je viens de comprendre pourquoi cette expression me prenait le dernier signe "=" au lieu du premier.
Voici l'expression :
$chaine =~ /(.+)=(.+)/

Et la chaine sur laquelle elle s'applique :
my $chaine = ldap admin dn = uid=sambamgr,o=test,c=fr

En fait si j'ai bien compris le perlretut, il s'agit d'un problème de gourmandise.

En effet, je demande à mon expression de me trouver n'importe quel caractère (.+) suivi d'un signe "=" puis n'importe quel caractère (.+).
Le premier caractère "=" rencontré est bien celui situé le plus à gauche. En revanche, la première partie de l'expression (.+) va tenter de prendre le plus long résultat possible. En parcourant la chaine jusqu'au bout, elle va trouver un dernier signe "=" rendant possible un résultat différent de celui attendu.
En résumé, la gourmandise de cette expression me renverra "ldap admin dn = uid=sambamgr,o=test,c" puis "fr".

Je ne sais pas si j'ai été clair mais j'espère que cela pourra profiter à quelqu'un dautre.
Maintenant il me reste à trouver une solution pour que mon expression fonctionne.

[Jedai]

La gourmandise est effectivement le problème, tu pourrais donc simplement utiliser les quantificateurs paresseux pour régler ton problème mais il y a une meilleure solution :

Code :

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

m/([^=]+)=(.+)/

--
Jedaï

[lu6fer]

au lieu de mettre (.+), essaye avec (.+?)

le +? est la version non gourmande de +, cela devrait fonctionner

j'ai tester avec :

Code :

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

1
2
3
4
5
6
7
8
9
10
#!/usr/bin/perl
#
use warnings;
use strict;
 
while (<>) {
        $_ =~ /^(.+?)\s?=\s?(.+)$/;
        print "section => ".$1."\n";
        print "valeur => ".$2."\n";
}

avec comme fichier d'entree :

workgroup = domaine1
ldap admin dn = uid=sambamgr,o=test,c=fr
workgroup=domaine1
ldap admin dn=uid=sambamgr,o=test,c=fr

et le resultat est :

Code :

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

1
2
3
4
5
6
7
8
section => workgroup
valeur => domaine1
section => ldap admin dn
valeur => uid=sambamgr,o=test,c=fr
section => workgroup
valeur => domaine1
section => ldap admin dn
valeur => uid=sambamgr,o=test,c=fr

[RaF25]

Merci infiniment pour cette solution.
En effet, elle fonctionne parfaitement.
Dans l'entre-temps, j'avais pu tester cette solution ci que j'allais justement poster ici :

/(.*?)=(.*)/;

Je pense que c'est ce que tu appeles les quantificateurs paresseux ?
Si j'ai bien compris, le "?" permet à l'expression (.*) de ne s'appliquer qu'une seule fois avant le signe "=".

Dans le cas de cette expression ci :
m/([^=]+)=(.+)/
Tu cherches à matcher tout ce qui précède le signe "=" mais qui n'est pas "=" ? (pour la première partie).

En tous les cas encore une fois un grand merci pour ces renseignements.

Bonne journée à tous.

[RaF25]

Excuse moi lu6fer, je n'avais pas vu ton post.

Tu réponds donc à ma question précédente concernant la gourmandise.

Merci beaucoup.

[Jedai]

Dans le cas de cette expression ci :
m/([^=]+)=(.+)/
Tu cherches à matcher tout ce qui précède le signe "=" mais qui n'est pas "=" ? (pour la première partie).

C'est exactement ça. Ta première partie ne comporte aucun "=", donc cette expression est plus descriptive à mon sens, de plus elle utilise des fonctionnalités plus connues que les quantificateurs paresseux pour la plupart des utilisateurs de regexps et elle est également plus efficace. Il vaut mieux éviter en général les quantificateurs paresseux quand il y a une solution simple alternative comme ici.

--
Jedaï

[RaF25]

Ce n'est pas toujours simple à comprendre mais ça commence à venir.

J'ai bien noté tes conseils et je m'attacherai à les appliquer autant que possible.

Encore une fois merci. Je n'aurais pas avancé aussi rapidement sans votre aide à tous les deux.

Bonne journée.