1c-scroll-all-authors-with-twitter-es.pl

#!/usr/bin/env perl

use strict;
use warnings;

use Data::Printer;
use lib './lib';
use MetaCPAN::Util qw( es );

my $scroller = es()->scroll_helper(
    search_type => 'scan',
    scroll      => '5m',
    index       => 'cpan',
    type        => 'author',
    size        => 100,
    body        => {
        query => {
            filtered => {
                filter => { match => { 'profile.name' => 'twitter' } },
            },
        },
    },
);

while ( my $result = $scroller->next ) {
    my $author = $result->{_source};

    foreach my $profile ( @{ $author->{profile} } ) {
        next unless $profile->{name} eq 'twitter';

        p 'Tweet ' . $author->{pauseid} . ' @' . $profile->{id};
        last;
    }
}