HTML::TreeBuilderによるパース（リンクの取得）

HTTPクライアントサンプル

以下にHTTP::LiteとHTTP::TreeBuilderを利用したクライアントを示します。

まず、Aタグを順次取得しています。 次に、取得したAタグに含まれるhref attributeをprintしています。

#!/usr/bin/perl

use HTTP::Lite;
use HTML::TreeBuilder;

$http = new HTTP::Lite;

# URL部分を変更して下さい
$req = $http->request("http://www.hogehogeURL.com/") || die $!;

$body = $http->body();

$tree = HTML::TreeBuilder->new;
$tree->parse($body);
$tree->eof();

foreach $a ($tree->find("a")) {
  print $a->attr('href');
  print "\n";
}

exit;