How to filter/narrow XML in Perl to ignore unwanted child elements?

Question

Say I have the following XML structure (mock) that begins:

<site defaultDomain="www.somedomain.com">
    <supported-locales>
        <locale id="sometext"/>
    </supported-locales>
    <next-child-of-site>
    ...
</site>

I am using Mojo::DOM and trying to get only the id text of <locale> elements that are children of <supported-locales> elements and ignore all other children of <site>

# Parse XML
my $dom = Mojo::DOM->new->xml(1)->parse($xml);

for my $e ($dom->find('site[defaultDomain')->each) {
    say $e->children->join();
}

So I get this far, but am stuck on how to filter the children to <supported-locales> and then <locale> only. Suggestions? I'm new to XML processing with Mojo::DOM.

Answer 1

You can look for locale tags that are underneath site and supported-locales tags directly using the child selector:

#!/usr/bin/env perl

use strict;
use warnings;

use feature qw(say);
use Mojo::DOM;

my $xml = q{
<site defaultDomain="www.somedomain.com">
    <supported-locales>
        <locale id="sometext"/>
    </supported-locales>
    <next-child-of-site>
</site>
};
my $dom = Mojo::DOM->new->xml(1)->parse($xml);

for my $e ($dom->find('site > supported-locales > locale')->each) {
   say $e->{id};
}
# output: sometext

As always, you should use strict; and use warnings;