やっつけだけど、自分と自分のお友達は表示しないようにしてみたdiff。
15c15 < my @following; --- > my %my_following; 17,18c17 < my $scr_name = encode 'ascii', $m_xp->find('./screen_name', $node); < push @following, $scr_name; --- > $my_following{encode 'ascii', $m_xp->find('./screen_name', $node)}++; 22c21 < foreach my $follow (@following) { --- > foreach my $follow (keys %my_following) { 27,28c26,27 < $following{encode_utf8 $f_xp->find('./name', $node)} = < sprintf 'http://twitter.com/%s', encode_utf8 $f_xp->find('screen_name', $node); --- > $following{encode_utf8 $f_xp->find('screen_name', $node)} = > {name => encode_utf8 $f_xp->find('./name', $node), screen_name => encode_utf8 $f_xp->find('./screen_name', $node)}; 32,33c31,32 < foreach my $name (sort keys %following) { < print "$name => $following{$name}\n"; --- > foreach my $scr_name (grep { !$my_following{$following{$_}->{screen_name}} && $_ ne $uid} sort keys %following) { > print "$following{$scr_name}->{name} => http://twitter.com/$scr_name\n";
元コードはついったーおともだちのおともだち - 日記帳にて。