Hatena::Groupperlmemo

Perlメモ

2008年09月18日 より開始
最新5件(RSS 2.0)
古いモジュールの更新

Plagger(Fedora10)
Plagger(Ubuntu9.04)

CPAN::Mini

Remedie(Ubuntu 9.04、Vine4.9(5α)、Fedora11Preview)
Remedie(Fedora10) 見れたサイトまとめ
編集

2008-10-23

含むアンテナの数を取得

| 含むアンテナの数を取得 - Perlメモ を含むブックマーク はてなブックマーク - 含むアンテナの数を取得 - Perlメモ 含むアンテナの数を取得 - Perlメモ のブックマークコメント

$ sudo cpan Web::Scraper


http://a.hatena.ne.jp/include?http://www.dfnt.net/t.html


use strict;
use warnings;
use Web::Scraper;
use URI;

my $scraper = scraper {  # myh1 という名前で取るスクレイパーを作成
    process 'h1', 'myh1' => 'TEXT';
};

my $uri = new URI('http://a.hatena.ne.jp/include?http://www.dfnt.net/t.html');

my $res = $scraper->scrape($uri);  # 先ほどのスクレイパーに渡す。(スクレイピングされる)

$res->{myh1} =~ /\(([0-9]+)\)/;
print $1 . "\n";

$ perl test.pl

6982