Re^4: Passing 2 tags to find() method

Hi Marto,
Please see the below code snippet.
Note:-I am using a different URL.The below URL may not even exist.I have mentioned the below URL just as an example.You can put any url you want.

use WWW::Mechanize::TreeBuilder;
my $mech = WWW::Mechanize->new;
WWW::Mechanize::TreeBuilder->meta->apply($mech);
$mech->get( 'http://www.abc.com/na/xxx/123' );
foreach my $b ($mech->find('meta')) {
    my $attr_prop=$b->attr('property');
        if(defined($attr_prop))
            {
                my $attr_content = $b->attr('content') || next;
                print Dumper($attr_content);
            }
}

foreach my $element_div ($mech->find('div','span'))
{
    my $div_attr_class=$element_div->attr('class')|| next;
    if($div_attr_class eq 'details-title-text'){
        my $strong_tag=$element_div->find('strong');
        print $strong_tag->as_text();

    }
}
[download]

Comment on Re^4: Passing 2 tags to find() method Download Code

Replies are listed 'Best First'.
Re^5: Passing 2 tags to find() method by marto (Cardinal) on Jul 28, 2016 at 05:51 UTC
Apologies, I now see that WWW::Mechanize::TreeBuilder pulls in methods from HTML::Element, which has a method called `find` all be it depreciated in favor of the `look_down` method, which you could use to find what you want (see the documentation). You don't have to show us the real page you're working with, just some data which (like I've said a few times) replicates your problem, the output your code produces and the output you expect. The code posted is also missing `use WWW::Mechanize; use Data::Dumper;`.	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^5: Passing 2 tags to find() method
by marto (Cardinal) on Jul 28, 2016 at 05:51 UTC

Apologies, I now see that WWW::Mechanize::TreeBuilder pulls in methods from HTML::Element, which has a method called find all be it depreciated in favor of the look_down method, which you could use to find what you want (see the documentation). You don't have to show us the real page you're working with, just some data which (like I've said a few times) replicates your problem, the output your code produces and the output you expect. The code posted is also missing use WWW::Mechanize; use Data::Dumper;.

[reply]
[d/l]
[select]