in reply to Re^8: language selection via libxml
in thread language selection via libxml
#!/usr/bin/perl use warnings; use strict; use XML::LibXML; my $tree = 'XML::LibXML'->load_xml(string => <<'EOT'); <?xml version="1.0"?> <language> <english> <widget ID="a">input</widget> <widget ID="b">output</widget> </english> <deutsch> <widget ID="b"> eingabe <b>b</b> </widget> <widget ID="b">ausgabe</widget> </deutsch> </language> EOT test('english', 'a'); test('deutsch', 'b'); 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; }
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^10: language selection via libxml
by tangent (Parson) on Jan 20, 2014 at 20:53 UTC |