tomyheroの日記 このページをアンテナに追加 RSSフィード

 | 

2007-11-08

[] Net::Twitter::Diff-0.01 21:47  Net::Twitter::Diff-0.01 - tomyheroの日記 を含むブックマーク はてなブックマーク -  Net::Twitter::Diff-0.01 - tomyheroの日記  Net::Twitter::Diff-0.01 - tomyheroの日記 のブックマークコメント

追記:インターフェイスを変更しました。sorry.

http://twitter.g.hatena.ne.jp/tomyhero/20071113

follower , follwoing のdiff情報取得をそれなりに簡単にできます。それだけです。


http://coderepos.org/share/browser/lang/perl/Net-Twitter-Diff

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

調べるだけなら、以下のすばらしいサイトを使用した方が楽。

Twitter Friends Analyzer -> http://tw.muumoo.jp/torchy.html

せっかくなので自分の状態を調べる

  use Net::Twitter::Diff;
    use Data::Dumper;

    my $diff = Net::Twitter::Diff->new();

    $diff->diff( { username => 'tomyhero' , password => '******' } );

    # get screen_names who you are not following but they are.
    print "followingしてない\n";
    print Dumper $diff->not_following();

    # get screen_names who they are not following but you are.
    print "followedされてない\n";
    print Dumper $diff->not_followed();

    # get screen_names who you are following them and also they follow you. 
    print "会話が成り立つかも\n";
    print Dumper $diff->communicated();

結果 (followingしていない方は、なぜか当時やろうとしたけどfollowできなかった気がする。)

followingしてない

$VAR1 = [

'LouiZoot',

'Naney',

'AzureStone',

'noboribotan',

'cubevoice',

'oppappiz'

];

followedされてない

$VAR1 = [

'larsen',

'miyagawa',

'geek',

'srushe',

'MikeG514',

'tokuhirom',

'jshirley',

'dous',

'net_twitter',

'londonpm',

'techstep',

'burningpaper',

'mindgap',

'voxefx',

'account',

'mendel',

'pckwan',

'perezvon',

'somafire',

'hatebu',

'neuralnoise',

'otsune',

'nyarla',

'sweetlove',

'Yappo',

'gyuque',

'jmworks',

'pal9999',

'jun_ichiro',

'fbis',

'tsuda',

'T0RU',

'umhr',

'anontwit',

'tatsugogo55',

't_muto',

'perl',

'spequer',

'cojix',

'camtarn',

'sfllaw',

'itkz',

'everes',

'plagger',

'mao999',

'yukkie',

'torikawa',

'metarand',

'mspeicher',

'mjollnir',

'dgcombs',

'harpere',

'twtg',

'y_arim',

'washyu',

'tomita',

'pecheurdeperles'

];

会話が成り立つかも

$VAR1 = [

'll_koba_ll',

'rytich',

'amachang',

'yusukebe',

'tsupo',

'Zoker',

'goricop',

'zakame',

'hakobe',

'issm',

'ikasam_a',

'lapis25',

'takesako',

'umiyosh',

'yksk',

'weboo',

'komatsuna',

'racoon',

'satoship',

'9232',

'masayashi',

'ikko',

'soel',

'himanainu_kawai',

'akio0911',

'moro',

'sekka',

'maedana',

'mzp',

'mazucon',

'tomisima',

'nekoya',

'k12u',

'citrocube',

'hitode909',

'kopug',

'arvined',

'osa',

'jimwalton',

'maybowjing',

'ban_yheld',

'rm233',

'Nick0510',

'kimidora',

'igoigo',

'nuwaa',

'kuy',

'teruyan',

'unclegeorge',

'benopt',

'MyUFO',

'Sixeight',

'm99oore',

'yheld',

'zedomax',

'satou30',

'taisei3200',

'bayside',

'jigenndaisuke',

'21c',

'hirameki',

'mapi',

'kasshy',

'rewish',

'Xyo'

];

 |