use XML::LibXML;
my $tree = XML::LibXML->load_xml(string => <<'EOT');
<?xml version="1.0"?>
<language>
<english>
<widget ID="1">input</widget>
<widget ID="2">output</widget>
</english>
<deutsch>
<widget ID="1">eingabe</widget>
<widget ID="2">ausgabe</widget>
</deutsch>
</language>
EOT
test('english',1);
test('deutsch',1);
sub test {
my ($language,$id) = @_;
my @result=$tree->findnodes("/language/$language/widget[\@ID=$id]"
+);
print $_->textContent . "\n" for @result;
my @result2=$tree->findnodes("/language/$language/widget[\@ID='$id
+']");
print $_->textContent . "\n" for @result2;
}
Output:
input
input
eingabe
eingabe
|