Re: CPAN de Perl

Pour les histoires de grep/sed, pour du XML tu dois avoir des équivalents qui utilisent XPATH par exemple pour trouver des noeuds dans ton arbres.

Tiens genre http://xmlstar.sourceforge.net/doc/UG/ch04s03.html

Exemples :

# Rename elements
xml ed -r "/xml/table/rec" -v record xml/tab-obj.xml

Output:

<xml>
<table>
<record id="1">
<numField>123</numField>
<stringField>String Value</stringField>
<object name="Obj1">
<property name="size">10</property>
<property name="type">Data</property>
</object>
</record>
<record id="2">
<numField>346</numField>
<stringField>Text Value</stringField>
</record>
<record id="3">
<numField>-23</numField>
<stringField>stringValue</stringField>
</record>
</table>
</xml>

EXAMPLE

# Update value of an attribute
xml ed -u "/xml/table/rec[@id=3]/@id" -v 5 xml/tab-obj.xml

Output:

<xml>
<table>
<rec id="1">
<numField>123</numField>
<stringField>String Value</stringField>
<object name="Obj1">
<property name="size">10</property>
<property name="type">Data</property>
</object>
</rec>
<rec id="2">
<numField>346</numField>
<stringField>Text Value</stringField>
</rec>
<rec id="5">
<numField>-23</numField>
<stringField>stringValue</stringField>
</rec>
</table>
</xml>