Hi all
fairly new to Perl and are playing with some XML files but cant work out using XML::Twig on how to add extra entries...
My XML file looks like this
<sites>
<site siteid="ONE">
<name>name1</name>
<address>address1</address>
<contact>contact1</contact>
</site>
<site siteid="TWO">
<name>name2</name>
<address>address2</address>
<contact>contact2</contact>
</site>
</sites>
I have code which can successfully read relevant items from the XML
use XML::Twig;
$sitefile='/app/sites.xml';
$twig=new XML::Twig;
$twig -> parsefile($sitefile);
$root=$twig->root;
@sites=$root->children;
foreach $site (@sites){
print "Site ".$site->att("siteid")."\n";
#$address = $site->first_child("address")->text;
#print $address."\n";
}
but cant work out how i'd add more "sites" and their relevant children using XML::TWIG
any help appreciated
thanks
A.