HTMLを解析し特定の要素以下のHTMLをそのまま取得したい場合

スクレイピング

あけましておめでとうございます。


さて、HTMLを解析して
特定の要素以下のHTMLをそのまま取得したい場合。


こうですか！＞＜

use LWP::Simple qw/get/;
use HTML::TreeBuilder::XPath;

my $content = get("http://d.hatena.ne.jp/tori243/20100123/1264263354");

my $tree = HTML::TreeBuilder::XPath->new;
$tree->parse($content);
$tree->eof();

for my $node ($tree->findnodes(q{//*[@class='section']})) {
  print $node->as_HTML();
}