はてなスターって本当にいいものですね

はてなスターをつけるのに疲れたからスクリプトでやることにしたよ。

スクリプトでポジティブなメッセージを送ろう!

perl -MWWW::Mechanize -e '$mech=WWW::Mechanize->new(agent=>"Subtech");$mech->get("https://www.hatena.ne.jp/login?location=http://s.hatena.ne.jp/");$mech->submit_form(form_number=>1,fields=>{"name"=>"name","password"=>"password"});$mech->get("http://s.hatena.ne.jp/star.add.json?uri=http://kokogiko.net/&title=boofy&Thu%20Jul%2012%202007%2020:44:30%20GMT+0900")for+1..1000'