はてなユーザ確認スクリプト

30分プログラム、その76。はてなユーザが存在しているかを確認するスクリプト。

ユーザ登録画面を見ていて気がついたけれど、

http://www.hatena.ne.jp/<ユーザ名>/status.json

を取得すると、

{"registered":1,"exist":1}

のようなファイルが取得できて、ユーザが存在しているかどうかを確認することができる。

ざっと検索しただけだけど、これに関する公式ドキュメントは見つからなかった。

さくっと、Perlスクリプトにしておく。

#!/usr/bin/env perl
use strict;
use warnings;
use LWP::UserAgent;
use JSON::PP;

my $agent = LWP::UserAgent->new;

while(<>){
    chomp;
    print $_,': ';
    my $req = HTTP::Request->new(GET=>"http://www.hatena.ne.jp/$_/status.json");
    my $res = $agent->request($req);
    
    if($res->is_success){
	my $status = from_json($res->content);
	if($status->{'exist'}){
	    print "exist\n";
	}else{
	    print "usable\n";
	}
    }else{
	print $res->status_line,"\n";
    }
}