updat xml file

please any help;

i have de folowing xml file ( soap xml file)
and i want to change the value in <acc1:SubscriberNo>06870565</acc1:SubscriberNo> from 06870565 to new value 073332

please anu perl script taht can do this

<soapenv:Envelope
xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/"
xmlns:acc="http://www.huawei.com/bme/cbsinterface/cbs/accountmgrmsg"
xmlns:com="http://www.huawei.com/bme/cbsinterface/common"
xmlns:acc1="http://www.huawei.com/bme/cbsinterface/cbs/accountmgr">
<soapenv:Header/>
<soapenv:Body>
<acc:QueryBalanceRequestMsg>
<RequestHeader>
<com:CommandId>QueryBalanceRequest</com:CommandId>
<com:Version>1</com:Version>
<com:TransactionId>1</com:TransactionId>
<com:SequenceId>1</com:SequenceId>
<com:RequestType>Event</com:RequestType>
<com:SerialNo>0702149044928111</com:SerialNo>
</RequestHeader>
<QueryBalanceRequest>

<acc1:SubscriberNo>06870565</acc1:SubscriberNo>

</QueryBalanceRequest>
</acc:QueryBalanceRequestMsg>
</env:Body>
</env:Envelope>

You can use an inline script, like the following one :

Code:

---

perl -pi -e "s/\r\n/\n/" mon_fichier.txt

---

more sources here : http://www.developpez.net/forums/d10...l-nos-sources/

It will become :

Code:

---

perl -pi -e "s/<acc1:SubscriberNo>06870565<\/acc1:SubscriberNo>/<acc1:SubscriberNo>073332<\/acc1:SubscriberNo>/" my_file.xml

---

This script will replace the value in your xml file, so first you have to make a back up of your file.

Citation:

---

Envoyé par Jiheme44

This script will replace the value in your xml file, so first you have to make a back up of your file.

---

Or you can specify an extension for the backup in the command line:

Code:

---

perl -pi.bak -e 's/search_string/replacement_string/' my_file.xml

---

will modify my_file.xml and backup the orginal file in my_file.bak.

The original poster sent me additional question by personal message. Since there is nothing private in this message and in my answer, I copy the whole exchange below, for the benefit of others who may want to add information.

===== QUOTE =====

Citation:

---

Envoyé par o.tarki

but in my situation we did nont now the actual value in 06870565 perl -pi -e "s/<acc1:SubscriberNo>06870565<\/acc1:SubscriberNo>/<acc1:SubscriberNo>073332<\/acc1:SubscriberNo>

so i want to change the contenant for TAG acc1:SubscriberNo to the new value stored in some variable like my $new_tag=073332.

---

In this case, you can do something like this, assuming what you want to replace is a telephone number starting with "06":

Code:

---

perl -pi -e 's/<acc1:SubscriberNo>06\d{8}<\/acc1:SubscriberNo>/<acc1:SubscriberNo>073332<\/acc1:SubscriberNo>/;'

---

This will replace:
- <acc1:SubscriberNo>
- followed by 06 and 8 more digits
- folloowed by <\/acc1:SubscriberNo>

with:

- <acc1:SubscriberNo>
- followed by 073332
- followed by <\/acc1:SubscriberNo>

I assume that's what you are looking for.

However, I think that your message and my answer are both better fit in the public forum rather than in a personal message, and, since there is nothing personal ot private in our communications, I'll take the freedom to copy this message exchange on the forum. This will enable others to give additional advice if needed.

===== UNQUOTE =====