Twitterアイコンを変えた

前はこんなアイコン(オリジナルキャラクターのイルカ娘です)を使ってましたが、飽きたのでアイコンを変更しました。
そこで自分で絵を書くのはたいへんなのでアイコンジェネレーターの256locksMakerというサービスを使うことにしました。しかしどうやらこのサイトは4000種類ものアイコンを用意しているのに結果が日替わりなので好みのアイコンになかなか出会えないという欠点があります。ところが、僕はあることに気づきました。

名前は自分のTwitterIDでなくてもいい

ということはPerlで4000種類ゲットすればいいじゃない！

use Web::Scraper;
use URI;
use LWP::Simple;

my $scraper = scraper {
	process '#lcolumn #image img', 'src' => '@src',
};

for (1..4000) {
	my $url = URI->new("http://maker-256locks.herokuapp.com/name?name=$_");
	my $res = $scraper->scrape($url);
	my $src = $res->{src};
	my $filename = $_ . '.png';
	print "Download ...$filename\n";
	mirror($src, './icons/' .$filename);
	# 唯一の良心
        sleep(1);
}

これで4000種類ゲットできる！と言いたいところだけど重複画像も取ってきてしまうので残念ながら(4000回のfor文では)コンプリートはできません。といってもそれほど顔のパターンが多いというわけではないのでこれで十分(すぎ)です。

顔の種類(23) * 目の種類(7) * 服の種類(26) = 4186

実際これだけで4000種類越えます。

おまけ(レア？)
カエル顔＋カエル服

綾波さん？

(ひどく画質を落としてます:-)