Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?

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(;;);

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
Domain Nodelet?
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 perusing the Monastery: (3)
As of 2021-10-16 08:40 GMT
Find Nodes?
    Voting Booth?
    My first memorable Perl project was:

    Results (69 votes). Check out past polls.