どういうロジックで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」って...
ちょwww