Re: adding XML records using XML::Twig

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;
[download]

Regards,
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.	[reply]
Re^3: adding XML records using XML::Twig by Loops (Curate) on Jul 23, 2013 at 21:44 UTC
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" />` [download]	[reply] [d/l]
Re^4: adding XML records using XML::Twig by Anonymous Monk on Jul 24, 2013 at 02:01 UTC
How to get to <sites> <site info="123"> <description> <descrip descrip1="abc" descrip2="def"/> </description> </site> </sites> Thanks	[reply]

In Section Seekers of Perl Wisdom