3 文字以下の取得可能 Twitter ユーザー名を探す

gistfile1.pl

#!/usr/bin/perl -w

use strict;
use LWP::Simple;

my $target = 'http://twitter.com/users/username_available?username=';
my @range  = ('a'..'x', '0'..'9', '_', '');

while (1) {
  my $str;
  $str .= $range[rand @range] foreach 0..2;
  print '@'. $str. ' is '. (get($target. $str) =~ /"valid":true/ ? 'available!!!!!!!!!!' : 'unavailable.'). "\n";
}