view release on metacpan or  search on metacpan

examples/es-parse-query-string.pl  view on Meta::CPAN

#!/usr/bin/env perl
#
#
use strict;
use warnings;

use App::ElasticSearch::Utilities::QueryString;
use CLI::Helpers qw(:output);
use Getopt::Long;
use JSON::MaybeXS;

my %OPT;
GetOptions(\%OPT, qw(
    or
    field=s%
));
my $json  = JSON->new->ascii->canonical(1)->pretty;
my %fields = ();
if( $OPT{field} ) {
    foreach my $f ( keys %{ $OPT{field} } ) {
        $fields{$f} = { type => $OPT{field}->{$f} },
    }
    output({color=>'yellow'}, "Fields: " . $json->encode(\%fields));
}
my $qs    = App::ElasticSearch::Utilities::QueryString->new(
                fields_meta => \%fields,
                default_join => $OPT{or} ? 'OR' : 'AND',
);
my $query = $qs->expand_query_string(@ARGV);

output({color=>'cyan'}, "Request URI Params:");
output($json->encode($query->uri_params));

output({clear=>1,color=>'yellow'}, "Request Body:");
output($json->encode($query->request_body));