friendsに入れてないfollowerをリストアップしたい

けど、10件ぐらいならともかく、約50件を自分でいちいち確認するのも面倒なのでちょろっとPerlで書いてやってもらおうのこと。

use strict;
use warnings;

use HTML::TreeBuilder::XPath;

my $tree = HTML::TreeBuilder::XPath->new;
$tree->parse_file(*DATA)->eof;

my $friends = $tree->findnodes('//ul[@id="friends"]/li/a[position()=1]');
my @friends;
push @friends, $_->attr('href') foreach $friends->get_nodelist;

my $follower = $tree->findnodes('//ul[@id="followers"]/li/a');
my @follower;
push @follower, $_->attr('href') foreach $follower->get_nodelist;

my (%seen, @diff);
@seen{@friends} = ();
foreach (@follower) {
    push @diff, $_ unless exists $seen{$_};
}

print "$_\n" foreach @diff;

__DATA__

__DATA__のあとにdashboardのHTMLのソースコードを貼り付けるー。dashboardのソースってどうやって引っ張ってきたらいいか知らないので、少し面倒だけどこれで。