Re^6: Nested div tag

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.

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

Replies are listed 'Best First'.
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]