pawooていうかマストドンで特定ユーザのフォロワー（またはフォロー）一覧を得るスクリプト

pawoo_follower_listupper.pl

#!/usr/bin/env perl

use strict;
use warnings;
use LWP::UserAgent;
use JSON;
use feature qw/say/;

my $instance     = 'pawoo.net';
my $id           = 'xxxxx';
my $access_token = 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx';
my $target       = 'followers'; # or 'following'

my $ua = LWP::UserAgent->new;
my $header = HTTP::Headers->new ('Authorization' => "Bearer $access_token");
my $url = "https://$instance/api/v1/accounts/$id/$target"; 
do {
    my $request = HTTP::Request->new("GET", $url, $header);
    my $response = $ua->request($request);
    my @links = split /,/, $response->header('Link');
    $url = '';
    for (@links) {
        if (/rel="next"/) {
            /<([^<>]+)>/;
            $url = $1;
        }
    }
    my $a = decode_json($response->content);
    say $_->{acct} for @$a;
} while $url ne '';

片思い・片思われや、フォロー・フォロワー推移調査等にどうぞ( ´ ▽ ` )ﾉ