#!/usr/bin/perl use XML::LibXML; use Switch; my $object = $ARGV[0]; my $datei = 'bla.xml'; my $mein_objekt = XML::LibXML->new(); my $Baumobjekt = $mein_objekt->parse_file($datei); my $wurzel = $Baumobjekt->getDocumentElement; my @knoten = $wurzel->getElementsByTagName('lst'); my @knot = $wurzel->getElementsByTagName('long'); my @objects; my @content1; my $i = 0; foreach my $einzelne_Knoten (@knot) { $name=$einzelne_Knoten->getAttribute('name'); $content2=$einzelne_Knoten->textContent; print "$name = $content2 \n"; $objects[$i] = $name; $content1[$i] = $content2; $i++; } print "\n$objects[5] = $content1[5]\n";