PerlのWWW**Mechanizeのオブジェクトから中身を取り出す

質問

PerlのWWW**Mechanizeのオブジェクトから中身を取り出す方法。

WWW:Mechanaizeでリンクの一覧を取得しようと思い
以下のようなコードを書きましたが、リンク一覧がWWW::Mechanize::Linkオブジェクトで取得されます。
解説文を読んでもここからどうやってテキストのアドレスを取得すればいいか分からないです。
何かメソッドを実行すればよいのでしょうか？

わかりにくい質問かと思いますがご回答お願いします。

………………………………………………………………………………

#WWW:Mechanizeの読み込み
use WWW::Mechanize;

#サイトの取得
$w = WWW::Mechanize->new(autocheck => 0);
$w->get("URLが入ります。");
@link_list=$w->links;

foreach ${_} (@link_list){print"${_}\n";}

　　　　↓
WWW::Mechanize::Link=ARRAY(0x243c564)
WWW::Mechanize::Link=ARRAY(0x243c564)
とオブジェクトで返されてしまう。

………………………………………………………………………………

回答No.1

diszo · ベストアンサー

foreachの部分を以下のように書き換えてください。

foreach ${_} (@link_list){print${_}->url_abs."\n";}

＃ちなみにurl_absをurlにすると<a href="xxx">～</a>
＃表示は「xxx」になり
＃textにすると「～」が取得できます

参考URL：

http://search.cpan.org/~petdance/WWW-Mechanize-1.62/lib/WWW/Mechanize/Link.pm

お礼

さっそくのご回答ありがとうございます。
CPANにちゃんとページがあったんですね・・

非常に分かりやい解説ありがとうございました。