xml parser

hi
i want to parse xml and read total content of the xml and want to some modification to the xml and place back the xml with the chnages what ever i made through the perl

Find more posts tagged with

Comments

Adam Stoller

hi
i want to parse xml and read total content of the xml and want to some modification to the xml and place back the xml with the chnages what ever i made through the perl

Okay - good for you.
Have you looked at the perldoc for TeamSite::XMLnode?
Have you looked through any perldoc's?
Have you looked through any of the templating tutorials?
Have you had any training?

kaalraa

hi
i want to parse xml and read total content of the xml and want to some modification to the xml and place back the xml with the chnages what ever i made through the perl

There are so many XML Parsers available. Try it out on google. Although you have been given a good example by 'ghoti' and that's too which is provided by Interwoven itself.

GriffTheDog

I had a really hard time with this myself. It was easy to load and parse XML and to munipulate it's values, but how to get those new/munipulated values back to the original file?

This is what I did:

 
use XML::Twig;
use FileHandle;
my $objXML = new XML::Twig;
$objXML->parsefile([Path to XML File]); 
my $root = $objXML->root;
my @root_children = $root->children();
setNodes(\@root_children);
sub setNodes {
my $nodes_ref = shift;
foreach my $node (@{$nodes_ref}) {

my @childNodes = $node->children(); 


if($node->att([attribute name]) eq [some value]) {
/* This is an edit example. I change the value of attributes of the current node */


$node->set_att('[attribute name]', [New Value]);

$node->set_att('[attribute name]', [New Value]);  


}
elsif ($node->att([attribute name]) eq [some value]) { 
/* This is an add node example. I create a new node with 2 attributes */
my $eblg= XML::Twig::Elt->new([Node Name] => {[attribute1 name] => [attribute1 value], [attribute2 name] => [attribute2 value]});  
$eblg->paste( 'last_child', $node);   # paste it in the document 

}
if (@childNodes) {  

setNodes(\@childNodes);
} 
}
}
$fh = new FileHandle "> [Path to XML File]";
$objXML->set_pretty_print('record');
$objXML->print($fh);

This method has been working for me, but if there is a better/easier way to do this, I would like to learn about it.

Cheers