remplacement de chaines de caracteres

Bonjour,

J'aimerai dans un fichier transformer toute les chaines de caracteres de type fonction('XXXX') par fonction(''XXXX""). Pouvez vous me donner une solution que ce soit en perl ou en shell ou sed.

Merci

Code:

---

sed "s#\(^.*fonction *(\)'\([^']\+\)'\(.*$\)#\1\"\2\"\3#" liste.txt

---

Explications ;) : http://www.shellunix.com/regexp.html

liste.txt :

Code:

---

1 2 3 4

fonction('aaaa'); fonction('aaaa_bbb') { fonction ('blabla') { fonction ('blabla2') {

---

Résultat :

Code:

---

1 2 3 4

fonction("aaaa"); fonction("aaaa_bbb") { fonction ("blabla") { fonction ("blabla2") {

---