Dear All,

I am new to perl... Please help me out to solve the issue.
I got the below program and the result print on the execution screen itself. I want to capture it in the same input xml file(abc.xml).

#####
use XML::TreeBuilder;

my $xml="abc.xml";
my $root = XML::TreeBuilder->new ();
$root->parsefile($xml);

for my $group ($root->look_down ('_tag', 'author-group')) {
   my @auths = $group->look_down ('_tag', 'auth');
   my $newRoot = HTML::Element->new ('xxx');

   $_->detach () for @auths;
   $newRoot->push_content (@auths);
   $group->unshift_content ($newRoot);
}

print $root->as_XML;
#####

Thanks in advance,
POP

Immediate answer: Change

print $root->as_XML;

to

open (FHO,">abc.xml");
print FHO $root->as_XML;
close FHO;

HOWEVER ... if anything goes wrong, you are destroying your input fil eand I would preceed thos three lines with

rename 'abc.xml','abc.bak';

Sorry for the delayed reply, I went on a vacation...

The code works very fine.
Thank you very much....


Thanks,
POP18

---