for my $page (@$review_pages) {
my $html = get $page->[1];
$html =~ s/([^[:ascii:]]+)/unidecode($1)/ge;
my $tree = HTML::TreeBuilder->new; # empty tree
$tree->parse($html);
print "Review for $page->[0]\n";
my @items = $tree->look_down( 'class', 'review-content' )
or die("no items: $!\n");
for my $item (@items) {
my @meta = $item->look_down( '_tag', 'meta' )
or die("no meta: $!\n"); # dies here
for my $meta_item (@meta) {
print $meta_item->attr('itemprop');
print ' = ';
print $meta_item->attr('content') . "\n";
}
}
}