Perl: rechercher et remplacer avec une variable

Bonjour tous,

Je suis à la recherche d'une aide pour une commande perl.

Pour information ma variable ${iot_hostname} contient mon adresse IP.

Je possède cette ligne de commande qui fonctionne sans souci pour remplacer mes localhost dans le fichier carbon.xml :

Code:

---

perl -pi -e "s/localhost/${iot_hostname}/g" $(find . -name 'carbon.xml')

---

Dans ce même fichier, j'ai une ligne qui est :

Code:

---

<!--HostName>www.wso2.org</HostName-->

---

Je cherche du coup comment pouvoir effectuer la recherche et remplacement

Code:

---

<!--HostName>www.wso2.org</HostName-->

---

par la même chaine en remplacant www.wso2.org par mon adresse IP qui est inclu par variable ${iot_hostname} et en dé commentant le tout.

L'utilisation de la variable dans la solution est à conserver pour des raisons techniques.

Résultat final :

Code:

---

<HostName>192.168.1.100</HostName>

---

Merci pour votre aide et je reste à disposition pour toutes informations complémentaires.

Bonjour,

perl ? pour si peu ?
et ce n'est pas comme ça qu'on utilise find.

Code:

---

find . -name carbon.xml --exec sed -i '/HostName/s/<!--\([^>]*>\).*\(<.*\)-->/<\1'"$ip"'\2>/' {} \;

---

Wouah la rapidité

Un grand merci à toi.
Je viens de tester en enlevant la variable par une adresse IP fixe car ça marche pas. Dans les 2 cas, j'ai une erreur :

find: unknown predicate `--exec'

Voici ce que j'ai mis :

Code:

---

find . -name carbon.xml --exec sed -i '/HostName/s/<!--\([^>]*>\).*\(<.*\)-->/<\1'"192.168.1.10"'\2>/' {} \;

---

C'est bon j'ai trouvé le souci, y avait 2 tirés avant exec

Voici du coup la commande :

Code:

---

find . -name carbon.xml -exec sed -i '/HostName/s/<!--\([^>]*>\).*\(<.*\)-->/<\1'"${iot_hostname}"'\2>/' {} \;

---

ça peut servir à d'autres :)

Un grand merci à toi N_BaH pour ton aide et ta réactivité.

@ plus tard

Christophe

:oops:

:ccool: