[Moscow.pm] Работа с Web::Scraper

[Денис Ильиных]

Может так подойдет ?

use HTML::TreeBuilder;

$html = qq {
<table width="100%" cellspacing="0" cellpadding="3" border="0">
<table width="100%" cellspacing="2" cellpadding="1">
	<tr><td><p>done</p></td></tr>
</table>
</table>
};

my $tree = HTML::TreeBuilder->new();
$tree->parse_content($html);

my $table = $tree->look_down(_tag=>"table","cellpadding" => "1");

say $table->as_HTML();

$tree = $tree->delete;

output:
<table cellpadding="1" cellspacing="2"
width="100%"><tr><td><p>done</td></tr></table>