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

2007-11-13

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

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

    my $diff = Net::Twitter::Diff->new(  username => '******' , password => '******');
    
    my $res = $diff->diff();

    # get screen_names who you are not following but they are.
    print Dumper $res->{not_following};

    # get screen_names who they are not following but you are.
    print Dumper $res->{not_followed};

    # get screen_names who you are following them and also they follow you. 
    print Dumper $res->{communicated}; 


    my $res2 = $diff->comp_following( 'somebody_twitter_name' );
    
    # only you are following
    print Dumper $res2->{only_me} ;

    # you are not following but somebody_twitter_name are following
    print Dumper $res2->{not_me} ;

    # both you and somebody_twitter_name are following
    print Dumper $res2->{share} ;


    # If you want , this module use Net::Twitter as base so you can use methods Net::Twitter has.
    $diff->update('My current Status');

 # この2つは基本的に、Net::Twitter->following() , Net::Twitter->followers()と同じだが、100件以上取得できる。
 my $a = $diff->xfollowing();
 my $b = $idff->xfollowers();