Big Sky :: Twitterでお友達になれそうな人をGoogleから探してくれるNet::Twitter::Friend::Find::FromGoogleが面白い

2008/01/31

Twitterでお友達になれそうな人をGoogleから探してくれるNet::Twitter::Friend::Find::FromGoogleが面白い

CodeReposに面白そうな物が入ってたので物色中。
どういうロジックでFriendを探しているのかは、まだ見てませんが...

こんなコードを実行すると...


#!/usr/bin/perl



use strict;

use Net::Twitter::Friend::Finder::FromGoogle;



my $twitter = Net::Twitter::Friend::Finder::FromGoogle->new( {

        username => 'xxxxxxxxx',

        password => 'xxxxxxxxx' ,

        on_echo => 1,

        limit => 20 ,

        lang => 'ja' } );



$twitter->search;

$twitter->show;

こんな結果が返ります。


.----------------------------------------------.

| Net::Twitter::Friend::Finder::FromGoogle     |

'----------------------------------------------'

.---------+------------------------------------.

| Keyword | twitter                            |

'---------+------------------------------------'

.-----+----------------------+-----------------.

| #   | Twitter id           | Found count     |

'-----+----------------------+-----------------'

.-----+----------------------+-----------------.

| 1   | ikasam_a             | 1               |

| 2   | tsuda                | 1               |

| 3   | blog                 | 1               |

| 4   | help                 | 1               |

| 5   | tdtds                | 1               |

'-----+----------------------+-----------------'

なんだかwktk。

ところでFriend一覧で出てきたアカウント「help」って...

ちょｗｗｗ

Posted at 02:23 | WriteBacks () | Edit

Edit this entry...

wikieditish message: Ready to edit this entry.

New Name:

Title:

Body:

meta-tags: perl, twitter
meta-creation_date: 2008-01-31T02:23:31+09:00

CodeReposに面白そうな物が入ってたので物色中。 
どういうロジックでFriendを探しているのかは、まだ見てませんが... 
 
こんなコードを実行すると...
<code class="code">
#!/usr/bin/perl 
 
use strict; 
use Net::Twitter::Friend::Finder::FromGoogle; 
 
my&nbsp;$twitter&nbsp;= Net::Twitter::Friend::Finder::FromGoogle-&gt;new( { 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;username =&gt; 'xxxxxxxxx', 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;password =&gt; 'xxxxxxxxx'&nbsp;, 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;on_echo =&gt; 1, 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;limit =&gt; 20&nbsp;, 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;lang =&gt; 'ja'&nbsp;} ); 
 
$twitter-&gt;search; 
$twitter-&gt;show; 
</code>
こんな結果が返ります。
<code class="code">
.----------------------------------------------. 
| Net::Twitter::Friend::Finder::FromGoogle&nbsp;&nbsp;&nbsp;&nbsp; | 
'----------------------------------------------' 
.---------+------------------------------------. 
| Keyword | twitter&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;| 
'---------+------------------------------------' 
.-----+----------------------+-----------------. 
| #&nbsp;&nbsp; | Twitter id&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; | Found count&nbsp;&nbsp;&nbsp;&nbsp; | 
'-----+----------------------+-----------------' 
.-----+----------------------+-----------------. 
| 1&nbsp;&nbsp; | ikasam_a&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; | 1&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; | 
| 2&nbsp;&nbsp; | tsuda&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;| 1&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; | 
| 3&nbsp;&nbsp; | blog&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; | 1&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; | 
| 4&nbsp;&nbsp; | help&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; | 1&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; | 
| 5&nbsp;&nbsp; | tdtds&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;| 1&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; | 
'-----+----------------------+-----------------' 
</code>
なんだかwktk。 
 
ところでFriend一覧で出てきたアカウント「help」って... 
 
<blockquote>

</blockquote>
ちょｗｗｗ

Excerpt:

CodeReposに面白そうな物が入ってたので物色中。どういうロジックでFriendを探しているのかは、まだ見てませんが...こんなコードを実行すると...#!/usr/bin/perluse strict;use Net::Twitter::Friend::Finder::FromGoogle;my $twitter = Net::Twitter::Friend::Finder::FromGoogle->new( {        username => 'xxxxxxxxx',        password => 'xxxxxxxxx' ,        on_echo => 1,        limit => 20 ,        lang => 'ja' } );$twitter->search;$twitter->show;こんな結果が返ります。.----------------------------------------------.| Net::Twitter::Friend::Finder::FromGoogle     |'----------------------------------------------'.---------+------------------------------------.| Keyword | twitter                            |'---------+------------------------------------'.-----+----------------------+-----------------.| #   | Twitter id           | Found count     |'-----+----------------------+-----------------'.-----+----------------------+-----------------.| 1   | ikasam_a             | 1               || 2   | tsuda                | 1               || 3   | blog                 | 1               || 4   | help                 | 1               || 5   | tdtds                | 1               |'-----+----------------------+-----------------'なんだかwktk。ところでFriend一覧で出てきたアカウント「help」って...ちょｗｗｗ

Ping URLs:

File:

Password:

A quick preview will be rendered here when you click "Preview" button.