ついったーおともだちのおともだち その2

やっつけだけど、自分と自分のお友達は表示しないようにしてみた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";

元コードはついったーおともだちのおともだち - 日記帳にて。