リハビリでコードを書いてみた。

病のため全然やる気になれなかったが久しぶりにコードを
書いた。まいどまいど同じようなコードだが、DMMの週刊ランキングを
取得してみた。

#!/usr/bin/env perl
use strict;
use warnings;

use Web::Scraper;
use URI;
binmode STDOUT, ":utf8";

my $rank_url = 'http://www.dmm.co.jp/mono/dvd/-/ranking/=/term=week/';

my $ranking = scraper {
    process 'td.bd-b', 'products[]' => scraper {
        process 'span.rank',     'rank' => 'TEXT';
        process '.data > p > a', 'title' => 'TEXT';
    };
};

my $info = $ranking->scrape(URI->new($rank_url));

foreach my $product ( @{$info->{products}} ) {
    printf "%2d: %s\n", $product->{rank}, $product->{title};
}

結果

 1: 【新作】お○ガールAV解禁 七色あん
 2: 【新作】あのお騒がせタレントが衝撃デビュー そして即引退！ 沢本あすか
 3: 私立H学園 瑠川リナ
 4: 【新作】EROTIC KAORI
 5: 【予約】超高級中出しソープ嬢 周防ゆきこ
 6: 【予約】新人NO.1 STYLE 現役アイドル×エスワン 白瀬エリナ
 7: 【新作】対魔忍アサギ
 8: 【新作】おしゃぶり学園 ピンサロ科 3
 9: 【新作】あ〜やらしい！ 7 圧巻の爆飲みザーメン娘登場！
10: スポーツジムの女 麻美ゆま
11: 交わる体液、濃密セックス 佳山三花
12: 【予約】復活 夕樹舞子
13: 【新作】学校コスプレ きよみ玲
14: 着衣巨乳フェティシズム 奈緒のニット編
15: 【新作】真性レズビアンが専属AVデビュー 松乃涼
16: 【新作】手コキ・淫語・女子校生 麻倉憂
17: 【新作】完全燃焼激ハードAV引退4時間スペシャル 早川瀬里奈
18: 【予約】快盗キララ

20位まで出るはずだけど、HTMLの構成が変なためか18位までしか
出なかった。やっぱりHTMLはきれいに書いておいてほしいよな〜。