Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things

Re: adding XML records using XML::Twig

by murugu (Curate)
on Aug 26, 2010 at 01:59 UTC ( #857350=note: print w/ replies, xml ) Need Help??

in reply to adding XML records using XML::Twig

#!/usr/bin/perl -w use strict; my $sitefile='/app/sites.xml'; my $twig=new XML::Twig; $twig -> parsefile($sitefile); my %hash = (name=>"name3",address=>"address3",contact=>"contact3"); my $root=$twig->root; my $insert = $root->insert_new_elt('last_child', site => {siteid=>"THR +EE"}); foreach my $element (keys %hash){ $insert->insert_new_elt('last_child',$element,$hash{$element}) } $root->print;

Murugesan Kandasamy
use perl for(;;);

Comment on Re: adding XML records using XML::Twig
Download Code
Replies are listed 'Best First'.
Re^2: adding XML records using XML::Twig
by Anonymous Monk on Jul 23, 2013 at 21:22 UTC
    How to insert short-form like: <description mydescription /> ? Thanks.
      If you pass text as the third argument to insert_new_elt() it will be bracketed by the given element tags. However, if you pass a hash reference, you can instead change the elements attributes. So:
      $insert->insert_new_elt('last_child','description', 'mydescription' ); # creates: <description>mydescription</description> $insert->insert_new_elt('last_child','description', { desc => 'mydescr +iption' } ); # creates: <description desc="mydescription" />
        How to get to <sites> <site info="123"> <description> <descrip descrip1="abc" descrip2="def"/> </description> </site> </sites> Thanks

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://857350]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (6)
As of 2015-11-26 09:28 GMT
Find Nodes?
    Voting Booth?

    What would be the most significant thing to happen if a rope (or wire) tied the Earth and the Moon together?

    Results (696 votes), past polls