googleで検索した内容で引っかかるtwitterのユーザを追加するスクリプト

googleで「site:.twitter.com perl」と検索して見つけた人をfollowするスクリプトを書いて、実行してみました。
現在実行中です。500件中からの検索結果はさすがに多すぎたかなぁ。１００件でよかったかも。アカウント停止とかされそうな気がしたので、途中で処理とめましたが。 orz

よろしくお願いします。

#!/opt/local/bin/perl

use strict;
use warnings;
use Net::Twitter;
use Web::Scraper;
use URI;



my $limit = 5; # ページ数。1にしたほうがいいのがわかった。１ページ１００件設定
my $key = 'perl';

my $url = "http://www.google.co.jp/search?q=$key+site:.twitter.com&num=%d&start=%d";

my $google_url = scraper {
    process "table> tr > td.j > font > span.a",
        description => 'TEXT',
};

my $google = scraper {
    process "div.g",
    "urls[]" => $google_url;
};

my $data = {};
for( my $page = 1 ; $page <= $limit ; $page++ ) {

    my $res = $google->scrape( URI->new( sprintf( $url , 100 , ( $page-1 ) * 100  ) ) );

    for my $item ( @{ $res->{urls} } ) {
        my ( $name ) = $item->{description} =~ m|twitter.com/(\w+)/|;
        next unless defined $name;
        $data->{ $name } = $data->{ $name } ? $data->{ $name }+1 : 1 ;
    }

}

my $twit = Net::Twitter->new( username=>"twitter",password=>"twitter");
foreach my $key (keys  %{ $data } ) {
    $twit->follow( $key );
}


1;