スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

last.fmのshoutboxをscrapeしてみた

何となく書いてみただけ。だからどうだってわけではない。それにしてもWeb::Scraper使うとeasyだなぁ。

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

my $url = 'http://www.last.fm/user/saltyduck/shoutbox';

my $messages = scraper {
    process "li.hentry", 'message[]' => scraper {
        process "p.entry-content", 'message' => 'TEXT';
        process "span.fn", 'from' => "TEXT";
        result 'from', 'message';
    };
}->scrape(URI->new($url));

print YAML::Dump $messages;
スポンサーサイト
上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。