Bulknews::Subtech RSSフィード

2008/08/08 (金)

きょうの Web::Scraper 04:11  きょうの Web::Scraper - Bulknews::Subtech を含むブックマーク はてなブックマーク -  きょうの Web::Scraper - Bulknews::Subtech

めざまし占いカウントダウンを取得

http://search.cpan.org/dist/TRD-Uranai/ がいろいろひどすぎるので

#!/usr/bin/perl                                                                                                         
use strict;
use Web::Scraper;
use URI;

my $uri = URI->new("http://www.fujitv.co.jp/meza/uranai/");
my $scraper = scraper {
    process '//td[@class="day" and @height < 100]', date => 'TEXT';
    process '//table[contains(@background, "item/rank")]',
        'ranking[]' => scraper {
            process '.', 'rank' => [ '@background', sub { (/rank(\d+)/)[0] } ];
            process "img", star => '@alt', image => '@src';
            process "td.text" => text => 'TEXT';
            process ".lucky", lucky => 'TEXT' };
};

my $result = $scraper->scrape($uri);

use YAML;
warn YAML::Dump $result;
date: 8月7日
ranking:
  - image: !!perl/scalar:URI::http http://www.fujitv.co.jp/meza/uranai/item/conste_aries.gif
    lucky: 気になるものはすぐに購入する
    rank: 01
    star: おひつじ座
    text: アイディアがさえて注目の的に。仲間の信頼も得て人気も急上昇。思いついたらすぐに実行しよう。
  - image: !!perl/scalar:URI::http http://www.fujitv.co.jp/meza/uranai/item/conste_libra.gif
    lucky: レストラン
    rank: 02
    star: てんびん座
    text: 楽しい出会いがある予感。夏限定のイベントへGO
...