in reply to Re^4: XML Parse, Spanish Elements
in thread XML Parse, Spanish Elements
#!/usr/bin/perl use XML::Simple; use Data::Dumper; my $xml1 =<<"eof"; <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> eof my $xml2 =<<"eof"; <config logdir="/var/log/foo/" debugfile="/tmp/foo.debug"> <server attr="sahara" osname="solaris" osversion="2.6"> <address>10.0.0.101</address> <address>10.0.1.101</address> </server> <server attr="gobi" osname="irix" osversion="6.5"> <address>10.0.0.102</address> </server> <server attr="kalahari" osname="linux" osversion="2.0.34"> <address>10.0.0.103</address> <address>10.0.1.103</address> </server> </config> eof print "Structure1:\n".Dumper(XMLin($xml1,ForceArray => 1)); print "Structure2:\n".Dumper(XMLin($xml2,ForceArray => 1));
Structure1: $VAR1 = { 'debugfile' => '/tmp/foo.debug', 'server' => { 'kalahari' => { 'osversion' => '2.0.34', 'osname' => 'linux', 'address' => [ '10.0.0.103', '10.0.1.103' ] }, 'sahara' => { 'osversion' => '2.6', 'osname' => 'solaris', 'address' => [ '10.0.0.101', '10.0.1.101' ] }, 'gobi' => { 'osversion' => '6.5', 'osname' => 'irix', 'address' => [ '10.0.0.102' ] } }, 'logdir' => '/var/log/foo/' }; Structure2: $VAR1 = { 'debugfile' => '/tmp/foo.debug', 'server' => [ { 'osversion' => '2.6', 'osname' => 'solaris', 'address' => [ '10.0.0.101', '10.0.1.101' ], 'attr' => 'sahara' }, { 'osversion' => '6.5', 'osname' => 'irix', 'address' => [ '10.0.0.102' ], 'attr' => 'gobi' }, { 'osversion' => '2.0.34', 'osname' => 'linux', 'address' => [ '10.0.0.103', '10.0.1.103' ], 'attr' => 'kalahari' } ], 'logdir' => '/var/log/foo/' };
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^6: XML Parse, Spanish Elements
by jbrugger (Parson) on Feb 13, 2006 at 12:33 UTC |