| Processing XML with Perl | | Michel Rodriguez |
![]() Introduction to XML::Simple | | ![]() XML::DOM |
Example: loading a configuration file
A configuration file:
<config logdir="/var/log/foo/" debugfile="/tmp/foo.debug">
<server name="sahara" osname="solaris" osversion="2.6">
<address>10.0.0.101</address>
<address>10.0.1.101</address>
</server>
<server name="gobi" osname="irix" osversion="6.5">
<address>10.0.0.102</address>
</server>
<server name="kalahari" osname="linux" osversion="2.0.34">
<address>10.0.0.103</address>
<address>10.0.1.103</address>
</server>
</config>
|
A simple script:
use XML::Simple;
my $config = XMLin(); # load the file
print $config->{logdir}; # the log dir
print $config->{server}->{kalahari}->{address}->[1]; # the second address on the server 'kalahari'
# (name is a key attribute)
$config->{debugfile}= "/dev/null"; # change the debug file
XMLout(); # output the updated XML file |
![]() Introduction to XML::Simple | | ![]() XML::DOM |


