De l'aide pour vos programmes et scripts en Perl

Conversion de chaines compliquée !!!

Bonjour à tous
Je souhaite traiter une chaine avec les regexp en PHP
compatibles Perl et j'ai besoin de votre aide.

Voila le type de chaine que je souhaite traiter :
$chaine = "(sess_ddd==1 && PAL_DDD==PAL_FF) ||(fdfdf=='rrrr')"

Et je veux entouré tous les noms de variables par
GLOBALS[nom_variable] (par exemple sess_ddd devient GLOBALS[sess_ddd]) sauf les constantes entourées de
quote ' ' (dans l'exemple 'rrrr')

en gros je veux obtenir ça :
-> (GLOBALS['sess_ddd']==1 && GLOBALS['PAL_DDD']
==GLOBALS['PAL_FF']) || (GLOBALS['dfdfdf']=='rrrr')


Voila le code actuel mais qui remplace toutes les
chaines, or je ne veux pas qu'il traite celles entre
quote.

-> preg_replace( "/([A-Za-z_]+[0-9_]*)/i" , "GLOBALS['\\1']" , $chaine);

Si certains connaissent la solution je les remercie
d'avance de me la transmettre.
@+

• Re: Conversion de chaines compliquée !!! Fred 07/02/2003 (0)
• Re: Conversion de chaines compliquée !!! Fred 07/02/2003 (0)