<commit_before><commit_msg>Add clusqmgr_inq.pl sample<commit_after>#!/usr/bin/perl
use strict;
use warnings;
use JSON;
use LWP::UserAgent;
use HTTP::Request::Common;

my $qmgr = shift;
die("Please pass me the name of a queuemanager as argument") unless defined($qmgr);

my $json = JSON->new;

my %input = ( 
	'ClusterQmgrName' => '*',
  'ClusterName' => 'SONGBIRDS'
);

my $ua = LWP::UserAgent->new;
my $req = POST 'http://localhost:8081/api/clusqmgr/inquire/' . $qmgr;    
$req->header( 'Content-Type' => 'application/json' );
$req->content($json->encode(\%input));

my $res = $ua->request($req);

print $json->pretty->encode($json->decode($res->content()));
{'fraction_non_alphanumeric': 0.20333839150227617, 'fraction_numerical': 0.006069802731411229, 'mean_word_length': 5.285714285714286, 'pattern_counts': {'":': 0, '<': 3, '<?xml version=': 0, '>': 16, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '3359448', 'n_tokens_mistral': 250, 'n_tokens_neox': 246, 'n_words': 53}