ついったーおともだちのおともだち - Whitebell::HatenaBlogvia. 2007-08-11 - きしだのはてな Rubyわかりません＞＜ かわりにPerlです＞＜ Javaは読めないしコンパイルできる環境もないので、きちんとした移植じゃないけど。もう少し手を入れれば登場回数順にソートもできるけど、めどいのでパス。 #!/usr/bin/perl use strict; use warnings; use LWP::Simple; use XML::XPath; use Encode; my $uid = shift or die "Input your TwiiterID\n"; my $xml = get "http://twitter.com/statuses/friends/$uid.xml"; my $m_xp = XML::XPath->new(xml => $xml); my $m_nodeset = $m_xp->find('/use
