Remplacement dans un fichier avec des parentheses et des quotes

Bonjour à tous.

Voila j'ai un fichier python contenant des listes de la forme: ["machin","machin2","machin3",...]

Je souhaiterais remplacer ["machin","machin2","machin3",...] par ["machin",_("machin2"),_("machin3"),...]

Je suis en train d'essayer avec un script utilisant une expression régulière du type:

Code:

---

1 2 3 4 5 6

#!/usr/bin/perl -w while(<>) { s/"(.*)"/_("$1")/g }

---

Seulement, ça ne marche pas !!
Et ça devrais modifier aussi le premier élément de la liste ce que je ne souhaite pas.

Pour éviter que ça modifie le premier élément de la liste j'avais dans l'idée d'utiliser quelque chose dans le style mais je n'arrive pas à le faire fonctionner.

Code:

---

1 2	s/["(.*)"(,"(.*)")+]/_("$2")/g

---

Si quelqu'un a une idée ...

Merci.

Code:

---

1 2 3 4 5 6 7 8 9 10 11

#!/usr/bin/perl   use strict; use warnings;     my $string = '["machin","machin2","machin3","machin4"]'; $string =~ s/,"(.*?)"/,_\("$1"\)/g;   print $string."\n"; # affiche ["machin",_("machin2"),_("machin3"),_("machin4")]

---

Tu n'étais pas loin de la solution. Il faut utiliser un point d'interrogation afin de rendre la recherche non gourmande et un antislash devant tes parenthèses car celles-ci sont des caractères réservés aux Exp Reg.

Pour éviter la première valeur, sers toi de la virgule qui précède toutes les autres valeurs de ta liste.

Merci beaucoup, je n'avais pas pensé à cette possibilité.

Je me pose encore une petite question:
Comment pourrais-je faire ce meme travail si il y à un retour à la ligne entre chaque "machinX" à mettre sous forme de _("machinX") ?

D'avance merci

Citation:

---

Envoyé par Radec

Je me pose encore une petite question:
Comment pourrais-je faire ce meme travail si il y à un retour à la ligne entre chaque "machinX" à mettre sous forme de _("machinX") ?

D'avance merci

---

Si tes valeurs étaient dans une variable, ça serait simple

Code:

---

1 2 3

my $string = qq{["machin"\n,"machin2"\n,"machin3"\n,"machin4"]}; # suppression des enter et mise entre parenthèses de chaque valeur excepté la première $string =~ s/\n,"(.*?)"/,_\("$1"\)/g;

---

As-tu déjà récupérer tes listes dans des scalaires?
Ou alors as-tu plusieurs listes de valeurs écrites sur plusieurs lignes d'un fichier? Si oui, pourrais-tu en préciser la structure exacte?

Merci,