Hi, All
How can i read the xml file,modify it using XML::Simple and save it?
The xml file is as follows
<?xml version="1.0"?>
<configs>

<config name="Damon">
<timeout>300</timeout>
<logdir>/eweiquu/log/</logdir>
<scriptroot>/eweiquu/testscripts/</scriptroot>
<suits></suits>
<testscripts>
<testscript>ft_621.sh</testscript>
<testscript>ft_622.sh</testscript>
</testscripts>
<priority>0</priority>
<remoteaddress>10.33.42.76</remoteaddress>
<remoteuser>root</remoteuser>
<remotepasswd>shroot</remotepasswd>
</config>

<config name="Jack">
<timeout>200</timeout>
<logdir>/jack/log/</logdir>
<scriptroot>/jack/testscripts/</scriptroot>
<suits>
<suit>dhcp</suit>
<suit>ntp</suit>
</suits>
<testscripts>
<testscript>ft_621.sh</testscript>
<testscript>ft_622.sh</testscript>
</testscripts>
<priority>0</priority>
<remoteaddress>10.33.42.44</remoteaddress>
<remoteuser>root</remoteuser>
<remotepasswd>shroot</remotepasswd>
</config>

</configs>

First i use this subroutine to read the config file as follows
sub readConfig{
my ($self,$tester)=@_;
my $xmlfile="../config/OCSTA_config.xml";
my $configs = eval{XMLin($xmlfile)}||die "Error: $!";
my $config=$configs->{"config"}->{$tester};
if(defined $config){
return $config;
}else{
return {};
}
}

and i can change the xml as follows

$config->{'Jack'}->{'timeout'}=300;

but when I using XMLout to save the xml, the format is changed.
the write method is
sub writeConfig{
my($self,$config)=@_;
my $xml=eval{XMLout($config)}||die "Error: $!";
print "The xml is: \n$xml \n";
}

the result is :
<opt>
<Damon>
<logdir>/eweiquu/ocsta/log/</logdir>
<priority>0</priority>
<remoteaddress>10.33.42.76</remoteaddress>
<remotepasswd>shroot</remotepasswd>
<remoteuser>root</remoteuser>
<scriptroot>/eweiquu/ocsta/testscripts/</scriptroot>
<suits></suits>
<testscripts>
<testscript>ft_621.sh</testscript>
<testscript>ft_622.sh</testscript>
</testscripts>
<timeout>300</timeout>
</Damon>
<Jack timeout="300">
<logdir>/jack/ocsta/log/</logdir>
<priority>0</priority>
<remoteaddress>10.33.42.44</remoteaddress>
<remotepasswd>shroot</remotepasswd>
<remoteuser>root</remoteuser>
<scriptroot>/jack/ocsta/testscripts/</scriptroot>
<suits>
<suit>dhcp</suit>
<suit>ntp</suit>
</suits>
<testscripts>
<testscript>ft_621.sh</testscript>
<testscript>ft_622.sh</testscript>
</testscripts>
</Jack>
</opt>

what's wrong with that?

and How can i save $xml to a file ?

Damon

Moved to Programming.

Please put you code in [CODE] tags to make it easier to read. (Advanced editing mode-->Select the text-->click on the "#")

First of all, how can we know what your or somebody else's expectations are ? I.e. why are you asking us what is wrong with a file you've produced ?

Also, entering into Yahoo

Perl write XML module

as the very first match yields http://perl-xml.sourceforge.net/faq/ .

You know the mankind invented the FAQ acronym for a reason. The page contains the word "write", so I think it's worth reading.