tomyheroの日記

■ [perl] Friends登録ご自由にPart3とかを、まとめて登録するスクリプト 13:17

最近このモジュールばっかで、飽き気味だけど思いついたので作った。

指定したURLの中のTwitterページへのリンクがあれば、そのユーザを見つけて、followできるようにした。

ソースはここね。バージョン微妙に上がってます。0.01_06が必要です。

svn co http://svn.coderepos.org/share/lang/perl/Net-Twitter-FriendFinder/trunk/

or

cpan install Net::Twitter::FriendFinder

とりあえず、Friends登録ご自由にPart3 にいるユーザのリストを取得するコード。

use Net::Twitter::FriendFinder;
 my $tf
    = Net::Twitter::FriendFinder->new({
        setting => {
            username => 'tomyhero',
            password => '*******',
            filter_already_followers => 1, # 既に登録しているユーザは対象から外す
        },
        from => {
            'URL' => {},
        }
      });
    $tf->search( 'http://twitter.g.hatena.ne.jp/keyword/Friends%e7%99%bb%e9%8c%b2%e3%81%94%e8%87%aa%e7%94%b1%e3%81%ab%20Part3' );
    $tf->show();
    #$tf->follow(); # 登録はしない

OK!293人も見つかったよ！

まとめて登録してみる

１時間に７０回しかリクエストできないので、全員を一度に登録する為には、sleepを使う。

時間はかかるけど、以下でたぶんできる。ちなみに,clientを立ち上げてると、それもリクエストをしているので、制限に引っかかるとおもう。

use Net::Twitter::FriendFinder;
 my $tf
    = Net::Twitter::FriendFinder->new({
        setting => {
            username => 'tomyhero',
            password => '*******',
            filter_already_followers => 1, # 既に登録しているユーザは対象から外す
            on_echo => 1,
            sleep => 60, # 1分休む
        },
        from => {
            'URL' => {},
        }
      });
    $tf->search( 'http://twitter.g.hatena.ne.jp/keyword/Friends%e7%99%bb%e9%8c%b2%e3%81%94%e8%87%aa%e7%94%b1%e3%81%ab%20Part3' );
    $tf->show();
    $tf->follow(); 

少しずつ登録する

limitをつけて10人ずつ登録する。これを、時間をあけて数回実行すれば、そのうちコンプリートすると思う。

use Net::Twitter::FriendFinder;
 my $tf
    = Net::Twitter::FriendFinder->new({
        setting => {
            username => 'tomyhero',
            password => '*******',
            filter_already_followers => 1, # 既に登録しているユーザは対象から外す
            on_echo => 1,
            limit => 10,
        },
        from => {
            'URL' => {},
        }
      });
    $tf->search( 'http://twitter.g.hatena.ne.jp/keyword/Friends%e7%99%bb%e9%8c%b2%e3%81%94%e8%87%aa%e7%94%b1%e3%81%ab%20Part3' );
    $tf->show();
    $tf->follow(); 

実行してみた。

Filter Userは既にfollowしているユーザだ。

他のサイトでも試してみる

この$urlを,他のURLに変更するだけだ。

$tf->search( $url )