Re: $nextline not working

Hi,

a solution based on many assumptions:

#!/usr/bin/perl
use warnings;
use strict;
use Data::Dumper;

use lib './lib/lib/perl5';

use Mojo::DOM;

my $html = q(
<html>
  <head><title>Some list</title>
</head>
<body>
  <div>
    <table>
      <tr>
        <td>Borrower:</td>
        <td>Someone</td>
        <td>active date:</td>
        <td>2013-03-22</td>
        <td>Amount:</td>
        <td>100.00</td>
      </tr>
      <tr>
        <td>Borrower:</td>
        <td>SomeoneElse</td>
        <td>active date:</td>
        <td>2013-03-20</td>
        <td>Amount:</td>
        <td>10.50</td>
      </tr>
    </table>
  </div>
</body>
</html>
);

my $dom = Mojo::DOM->new($html);
my $table = $dom->at('table');
for my $record ($table->children('tr')->each) {
    my %record = map { $_->text } $record->children('td')->each;
    print Dumper(\%record), "\n";
}
[download]

McA

Comment on Re: $nextline not working Download Code

In Section Seekers of Perl Wisdom