probleme de quoting du "-"

Bonjour j'ai un probleme assez bete...

Code:

---

1 2	system('/usr/local/bin/mysql -uroot -pr...... -hsql mysql -e \'create database debut-finnom;\'');

---

l'erreur indique un probleme de nomage donc de quotation :

Code:

---

x to use near '-finnom' at li

---

j'ai testé \' ...\' aussi \" ....\" ou encore \-

je n'ai aucune possibilité de modifier le nom de la base c'est de la prod donc intouchable ....
Comment en perl on protege l'interpretation d'un caractère "-" ?

Merci

c'est

Code:

---

\`debutnom-finnom\`

---

donc

Code:

---

system('/usr/local/bin/mysql -uroot -p....-hsql -e "create database \`machin-truc\`;"');

---

j'aurai du y penser....

Sinon, il y a l'opérateur de citation q() (ou q{},q//, q[], etc.).

Par exemple, je pense qu'un truc du genre:

Code:

---

1 2 3

my $command = q(/usr/local/bin/mysql -uroot -p....-hsql -e "create database 'machin-truc'"); system($command);

---

devrait marcher (mais je n'ai pas testé).