images/napali.gifNapali.ch /perl

..

#!/usr/bin/perl

use strict;
use warnings;

use XML::Simple;
use Data::Dumper;

my $xml = XMLin('./data.xml', forcearray=>1);

for my $person(@{$xml->{person}}) {
    print $person->{"name"}->[0] . ":" . $person->{"vorname"}->[0]. "\n";
}
# print XMLout($xml);
print Dumper($xml);