めも

手元で記録してるテキストとダッシュボードでの表示人数に誤差が出てたので、ちょろっと取得してきてつき合わせてみる。

use strict;
use warnings;

use HTML::TreeBuilder::XPath;
use Perl6::Say;

my $tree = HTML::TreeBuilder::XPath->new;
$tree->parse_file('following.html');
my $ns = $tree->findnodes('//div[@class="username"]/a');
foreach my $c ($ns->get_nodelist) {
    say $c->attr('href');
}