友達を見つけたり、追加したりが楽になるNet::Twitter::FriendFinderをCPANにリリースしました

cpan perl twitter

以下で取得することができます。

http://search.cpan.org/~tomyhero/Net-Twitter-FriendFinder-0.02/

簡単な使い方をもう一度まとめようと思います。

自分の興味があることを発言しているユーザを見つけたい時(フォローしたい時)

例えば、「寿司」を発言している人を見つけたい時の例

use Net::Twitter::FriendFinder;

my $twf
    = Net::Twitter::FriendFinder->new({
        setting => {
            username => 'tomyhero',
            password => '*****',
            # 既に登録している人をフィルターかけることができる。ただしAPIを使用するので制限を気にする人は、必要な時だけ使う方がいい。
            filter_already_followers => 1, 
            # 指定しなければ見つかった人全員だが、人数制限を書けることができる。
            limit => 10,
        },
        from => {
            Google => {
                lang => 'ja', # google検索時の言語指定ができる
                coverage => 4 , # 50 * 4 件のエントリーを対象にする。
            },
            Twitter => {
                handicap => 1.5 # Twitterを使って見つかった情報のスコアーポイントを1.5倍する
            },
            TwitterKensaku => {},
        }
    });

    $twf->search('寿司');
    $twf->show();


上記を実行した結果

また、追加したい時には一行追加すればいい。

 # この関数を呼べば、見つかった人の追加を実行する
 $twf->follow();

追加時に注意する点がある。on_echo を設定すると、追加している人をプリントアウトするのでおすすめだ。それと件数が多い場合、sleepを指定していないと、APIの回数制限で失敗してしまう。だから、多い人数を実行する時は、クライアントも落として、sleep=>60にするのがおすすめだ。

  my $twf 
     = Net::Twitter::FriendFinder->new({
          settiing => {
                 username => '*****',
                 password => '*****',
                 on_echo => 1,
                 sleep => 60,
          }    
       });

自分をフォローしてくれているけど、フォローしていないユーザを見つけたい時(フォローしたい時)

以下のコードで実現することができると思う。ユーザの情報が少し助長な気がするが、別のユーザでもできるということだ。

use Net::Twitter::FriendFinder;

my $twf
    = Net::Twitter::FriendFinder->new({
        setting => {
            username => 'tomyhero',
            password => '******',
        },
        from => {
            TwitterDiff=> {
                username => 'tomyhero',
                password => '******',
　　　　     },
        }
    });
    $twf->search();
    $twf->show();
    #$twf->follow();


友達がフォローしているユーザを、見つけたい時(フォローしたい時)

これも簡単だ。上記のコードのsearchに友達のtwitter名を入れるだけだ。

use Net::Twitter::FriendFinder;

my $twf
    = Net::Twitter::FriendFinder->new({
        setting => {
            username => 'tomyhero',
            password => '******',
        },
        from => {
            TwitterDiff=> {
                username => 'tomyhero',
                password => '******',
        }
    });
    $twf->search('your_friend_twitter_name');
    $twf->show();
    #$twf->follow();

ウエーブサイト上に、ツイッターユーザリストのリンクがあって、そのリストのユーザを見つけたい時(フォローしたい時)

たとえばMac部の人を追加したい時だ。

use Net::Twitter::FriendFinder;

my $twf
    = Net::Twitter::FriendFinder->new({
        setting => {
            username => 'tomyhero',
            password => '*****',
            filter_already_followers => 1,
            on_echo => 1,
            sleep => 60,
        },
        from => {
            URL => {},
        }
    });
    $twf->search('http://twitter.g.hatena.ne.jp/keyword/Mac%e9%83%a8');
    $twf->show();
    $twf->follow();

オレオレツイッターユーザを用意して、他の人におすすめしたい時

最後に自分のプラグインを作って、人におすすめしてあげたい時だ！

package OreOre;

use base qw/Net::Twitter::FriendFinder/;

sub search {
    return {
        tomyhero => 10000,
        kopug    => 1,
        # 同じ形式でいくつでも追加できる。ちなみに数字はスコアー
    };
}

1;

use Net::Twitter::FriendFinder;

my $twf
    = Net::Twitter::FriendFinder->new({
        setting => {
            username => 'tomyhero',
            password => '*****',
        },
        from => {
            '+OreOre' => {},
        }
    });
    $twf->search();
    $twf->show();

みんなの、おすすめパッケージを作ろう！