超クイックハック

キーワードが登録された日にちを取得するスクリプトと、idの人が何日日記を書いたかを取得するスクリプト。

use LWP::Simple;
use strict;

my $kw  = lc(shift);
my $url = "http://d.hatena.ne.jp/keyword/$kw";
my %kid;

# get kid for keyword
foreach(split(/\n/, get($url))){
  if(/$kw\?kid=(\d+)/){
    $kid{$1} = 1;
  }
}
foreach(keys %kid){
  my ($date, $id) = getbtime("http://d.hatena.ne.jp/keyword/$kw?kid=${_}&mode=edit");
  print "$date, id:$id\n";
}

sub getbtime{
  my $url = shift;
  my $line;
  foreach(split(/\n/, get($url))){
    if(/<\/a> append<\/li>/){
      $line = $_;
    }
  }
  $line =~ /@(\d{14})<\/a>.+>(.+?)<\/a>/;
  return($1, $2);
}

use LWP::Simple;
use strict;

my $id  = shift;
my $url = "http://d.hatena.ne.jp/$id/about";
foreach(split(/\n/, get($url))){
  if(/<li>ユーザー登録から本日までに日記をつけた日数：(\d+)日<\/li>/){
    print "$1\n";
  }
}

2個目とか投げやりすぎるｗｗ

はてながいろんな情報を取得できるAPIを作ってくれればいいんだけどね。もちろんこんなことしたがるひとはいないだろうからつくらなくていいけど。