Re^4: Nested div tag

when i run the below code

#! usr/bin/perl
use strict;
use warnings;
use HTML::TreeBuilder::XPath;


my $tree= HTML::TreeBuilder::XPath->new;
$tree->parse_file(<<"HTML");
<div class="Row May-2015">
                 <div class="Cell month-year even">
                      May-2015
                 </div>
                 <div class="Cell Release Date even">
                            2015-06-25
                </div>
                <div class="Cell National Mortgage Contract Rate even"
+>
                            3.750
                </div>
</div>
HTML

my @rows = $tree->findnodes(q{//div[@class= 'Row May-2015']});
#my @rows=$tree->findnodes(q{ //div[ @class =~ /Cell/ ] });
print $#rows;
for my $row ( @rows ){
    my @cells = $row->findnodes(q{ //div[ @class =~ /Cell/ ]   });
    for my $cell ( @cells ){
       #Dance( $cell );
        print $cell;
    }
}
[download]

output be like

[ab@linux0059 html_tree_builder]$ perl code.pl
-1[ab@linux0059 html_tree_builder]$
[download]

It does not take div node

Comment on Re^4: Nested div tag Select or Download Code

Replies are listed 'Best First'.
Re^5: Nested div tag by Anonymous Monk on Jul 21, 2016 at 07:07 UTC
That is some strange filename #!/usr/bin/perl -- use strict; use warnings; use HTML::TreeBuilder::XPath; my $tree= HTML::TreeBuilder::XPath->new_from_content(<<'HTML'); <body> <div class="Row May-2015"> <div class="Cell month-year even"> May-2015 </div> <div class="Cell Release Date even"> 2015-06-25 </div> <div class="Cell National Mortgage Contract Rate even" +> 3.750 </div> </div> HTML $tree->dump; my @rows = $tree->findnodes(q{//div[@class =~ /Row/ ]}); print 0+@rows, "\n"; for my $row ( @rows ){ my @cells = $row->findnodes(q{ //div[ @class =~ /Cell/ ] }); print 0+@cells, "\n"; for my $cell ( @cells ){ print $cell->as_trimmed_text, "\n"; } } __END__ <html> @0 (IMPLICIT) <head> @0.0 (IMPLICIT) <body> @0.1 <div class="Row May-2015"> @0.1.0 <div class="Cell month-year even"> @0.1.0.0 " May-2015 " <div class="Cell Release Date even"> @0.1.0.1 " 2015-06-25 " <div class="Cell National Mortgage Contract Rate even"> @0.1.0.2 " 3.750 " 1 3 May-2015 2015-06-25 3.750 [download]	[reply] [d/l]
Re^6: Nested div tag by perlmad (Sexton) on Jul 21, 2016 at 10:32 UTC
I think this is not a exact output what i am expecting. #!/usr/bin/perl -- use strict; use warnings; use HTML::TreeBuilder::XPath; my $month; my $date; my $value; my $tree= HTML::TreeBuilder::XPath->new_from_content(<<'HTML'); <body> <div class="Row Jun-2015"> <div class="Cell month-year "> Jun-2015 </div> <div class="Cell Release Date "> 2015-07-30 </div> <div class="Cell National Mortgage Contract Rate "> 3.850 </div> </div> <div class="Row Jul-2015"> <div class="Cell month-year "> Jun-2015 </div> <div class="Cell Release Date "> 2015-08-31 </div> <div class="Cell National Mortgage Contract Rate "> 3.750 </div> </div> </body> HTML my @rows = $tree->findnodes(q{//div[@class =~ /Row Jun-2015/ ]}); print $#rows, "\n"; for my $row ( @rows ){ my @cells = $row->findnodes(q{ //div[ @class =~ /Cell/ ] }); print $#cells, "\n"; $date=$cells[1]->as_trimmed_text; $value=$cells[2]->as_trimmed_text; for my $cell ( @cells ){ print $cell->as_trimmed_text, "\t"; } print "Date: $date, value : $value\n"; } [download] output be like `0 5 Jun-2015 2015-07-30 3.850 Jun-2015 2015-08-31 3.750 + Date: 2015-07-30, value : 3.850` [download] But the expected output is : `1 3 Jun-2015 2015-07-30 3.850 Date: 2015-07-30, value : 3.850 3 Jun-2015 2015-08-31 3.750 Date: 2015-08-31, value : 3.750` [download] there is something wrong with this code please give a suggestion to find out issue.	[reply] [d/l] [select]
Re^7: Nested div tag by Anonymous Monk on Jul 25, 2016 at 06:24 UTC
You changed the @query again by adding a month-year to it ... beeing extra specific is fine if you're only interested in one single date ... but then why have a loop	[reply]


more useful options
	PerlMonks