Lanas::Debug->debug("[CONFIG.PM](spiele) Benutze XML::DOM",4); my $parser = XML::DOM::Parser->new(); my $doc = $parser->parsefile( $file ); my $root = $doc->getDocumentElement(); my $nodes = $root->getElementsByTagName ("game"); my $n = $nodes->getLength(); my @games = $root->getChildNodes(); for (my $i = 0; $i < $n; $i++) { my $node = $nodes->item ($i); my $href = $node->getAttributeNode ("gameid"); $game_id = $href->getValue(); Lanas::Debug->debug( "[TO_STRING] $i ".$games[$i]->toString(),4); foreach my $child( $games[$i]->getChildNodes() ) { $name = $child->toString(); $name =~ m,<(.*?)>(.*?),; $name = $1; $value = $2; if (!$name || !$value) { next; } $name =~ s/^\W//g; $name =~ s/\W$//g; $value =~ s/^\W//g; $value =~ s/\W$//g; Lanas::Debug->debug("[CONFIG.PM](spiele) ($game_id) ($i/$n) $name: $value",4); $games{ $game_id }->{$name} = $value; } } $doc->dispose;