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のソースってどうやって引っ張ってきたらいいか知らないので、少し面倒だけどこれで。