Napali.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);