Discussion :

[burkan21]

Bonsoir a tous
j'ai une ligne de code Java, par exemple la suivante :

Code :

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

1
2
 
 _objFsLog.traza (_strEntorno, strOrigen, iNivel, "message a montrer" + msg)

je veux recuperer tt les arguments qui sont entre parentheses et separrés par vergule.

g utilisé l'expression reguliere suivante:

Code :

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

1
2
 
 m/^\s*(_objFsLog.traza\s*\((.+),(.+),(.+),(.+)\)/)

Et je recupere les argument avec $1,$2,$3..
mais les probelemes commencent kan ds le dernier argument y a une vergule. Parce que je pense que perl recupère les valeurs a l'enver. c a dire, il recupere $4,$3,$2 puis $1.
Et s'il y a une vergule ds le message, il prend une partie du message com valeur, et l'autre patie comme une autre valeur.

Je ne sais pas comment affronter ça. (g avec perl 2 semaines seulement ).

Merci d'avance.

[djibril]

c'est pas tres clair, dans ton exemple on a :

Code :

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

$chaine ="_objFsLog.traza (_strEntorno, strOrigen, iNivel, "message a montrer" + msg) ";

que veux tu recuperer?

Code :

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

1
2
3
4
 
_strEntorno
strOrigen
iNivel

c'est ça ou j'ai oublié quelque chose?

[Jedai]

Ce n'est pas tant qu'il prenne les valeurs à l'envers : c'est simplement que les quantificateurs sont gloutons par défaut en Perl (ils "mangent" le plus de caractère qu'ils peuvent, puis les relachent un à un jusqu'à obtenir un match).
Dans ton cas le plus simple est donc probablement de rendre les quantificateurs paresseux (ils mangent le moins possible) en rajoutant un '?' après le quantificateur :

Code :

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

1
2
 
m/^\s*(_objFsLog.traza\s*\((.+?),(.+?),(.+?),(.+?)\)/)

Maintenant tu auras un autre problème s'il y a une virgule autre part que dans le dernier paramètre, ou s'il peut y avoir une parenthèse dans ce dernier. Mais comme tu ne nous as pas donné assez de renseignement pour traiter ces cas là, je ne peux pas t'aider.

--
Jedaï

[burkan21]

Merci Jedai, merci bokou.
ça fonctionne, et tu m'a sauvé le job

A toi aussi Djibril.