Elasticsearch to CSV

gistfile1.pl

#!/usr/bin/perl

use ElasticSearch;
use Text::CSV_XS;

my $csv_file = 'output.csv';
open my $fh, '>:encoding(utf8)', $csv_file or die $!;


my $csv = Text::CSV_XS->new;
my $e = ElasticSearch->new(servers => '127.0.0.1:9200');
my $s = $e->scrolled_search(
    index => 'foo',
    type => 'bar',
    query => {....}
);

my @field_names = qw(title name foo bar);

while (my $doc = $s->next) {
    my @cols = map {$doc->{$_} @field_names;
    $csv->print($fh, \@cols);
}

close $fh or die $!;