HTML::TreeBuilderについてです

質問

perlで特定のhtmlタグの情報を抜き出そうとしてHTML::TreeBuilderを使おうとしているのですが、インストールして実行してもlook_downメソッドがないといわれます。
しっかりとインストールはしているのであるはずなのですが・・・
どうすればよいか皆目見当もつかないのでどうぞよろしくお願いします。
ちなみにコードは以下の通りです↓
use strict;
use warnings;
use LWP::UserAgent;
use HTML::TreeBuilder;
use HTML::Element;
use Encode;
# urlを指定する
my $url = 'http://www.nikkansports.com/';

# IE8のフリをする
my $user_agent = "Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1; Trident/4.0)";

# LWPを使ってサイトにアクセスし、HTMLの内容を取得する
my $ua = LWP::UserAgent->new;
my $res = $ua->get($url);
my $content = $res->content;

# HTML::TreeBuilderで解析する
my $tree = HTML::TreeBuilder->new;
$tree->parse($content);
$tree = decode("UTF-8",$tree);
$tree = encode("Shift_JIS",$tree);
# DOM操作してトピックの部分だけ抜き出す。
# <div id='topicsfb'><ul><li>....の部分を抽出する

my @items = $tree->look_down('id', 'sideRanking')->find('li');
print $_->as_text."\n" for @items;

回答No.1

kumoz · ベストアンサー

> my $tree = HTML::TreeBuilder->new;
> $tree->parse($content);
> $tree = decode("UTF-8",$tree);
> $tree = encode("Shift_JIS",$tree);
> ...
> my @items = $tree->look_down('id', 'sideRanking')->find('li');

$tree に decode と encode の戻り値を代入している部分は誤りです。decode と encode は文字列を返すので、$tree はオブジェクトではなく通常の文字列を格納する変数になってしまいます。

なお、HTML::TreeBuilde を始めとした質問に書かれているモジュールをあまり使ったことがないので明快な解答を示すことができませんが、文字コードの変換を最後に移したらどうでしょうか。

print encode("Shift_JIS", decode("UTF-8", $_->as_text)), "\n" for @items;