use XML::Simple; use Data::Dumper; use strict; use warnings; my $xml = new XML::Simple (KeyAttr=>[]); my $data = $xml->XMLin("xml.xml"); #print Dumper($data); foreach my $machine (@{$data->{server}}) { my $name=$machine->{name}; print "$name\n"; my $file_list = $machine->{file}->{filename}; printf "\t%s\t\n",join(' ', @$file_list); }
In reply to Re: XML understanding
by imp
in thread XML understanding
by svankalken
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |