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-12-07

新はてなブックマークのお気に入られの数を取得

| 新はてなブックマークのお気に入られの数を取得 - Perlメモ を含むブックマーク はてなブックマーク - 新はてなブックマークのお気に入られの数を取得 - Perlメモ 新はてなブックマークのお気に入られの数を取得 - Perlメモ のブックマークコメント

はてなブックマーク - naoyaのブックマーク

#!/usr/bin/perl
use strict;
use warnings;
use LWP::Simple;

my $url = 'http://b.hatena.ne.jp/naoya/';
my @data = split(/\n/, get($url));  #改行で分解して @dataへいれる

foreach (@data)         # ループ
{
  if(/follower">/){
    m/follower">(.+?)<\/a>/i;
    print $1;
  }
}

$ perl test.pl


はてなブックマーク被お気に入り登録数 ランキング