<commit_before>
use strict;
use Carp;
use Data::Dumper;
use Getopt::Long;
Getopt::Long::Configure("pass_through");

my $usage = <<End_of_Usage;

Usage: ar-stat [-h] [-w] [-d [FILES] | -j STAT_JOB] [-n STAT_N] [-s server_addr]

Query status of running jobs

Optional arguments:
  -h, --help            show this help message and exit
  -j JOB, --job JOB     get status of specific job
  -n STAT_N             specify number of records to show
  -s server_addr        specify ARAST server address
  -w, --watch           monitor in realtime (only works in Linus and Mac shell)

End_of_Usage

my $help;
my $server;

my $rc = GetOptions("h|help" => \$help,
                    "s=s" => \$server);

$rc or die $usage;
if ($help) {
    print $usage;
    exit 0;
}

# my $target = $ENV{HOME}. "/kb/assembly";
# my $arast  = "ar_client/ar_client/ar_client.py";
# system "$target/$arast stat @ARGV";


my $arast = 'arast';
$arast .= " -s $server" if $server;

system "$arast stat @ARGV";
                    
<commit_msg>minor update<commit_after>
use strict;
use Carp;
use Data::Dumper;
use Getopt::Long;
Getopt::Long::Configure("pass_through");

my $usage = <<End_of_Usage;

Usage: ar-stat [-h] [-w] [-d [FILES] | -j STAT_JOB] [-n STAT_N] [-s server_addr]

Query status of running jobs

Optional arguments:
  -h, --help            show this help message and exit
  -j JOB, --job JOB     get status of specific job
  -n STAT_N             specify number of records to show
  -s server_addr        specify ARAST server address
  -w, --watch           monitor in realtime (only works in Linux and Mac shell)

End_of_Usage

my $help;
my $server;

my $rc = GetOptions("h|help" => \$help,
                    "s=s" => \$server);

$rc or die $usage;
if ($help) {
    print $usage;
    exit 0;
}

# my $target = $ENV{HOME}. "/kb/assembly";
# my $arast  = "ar_client/ar_client/ar_client.py";
# system "$target/$arast stat @ARGV";


my $arast = 'arast';
$arast .= " -s $server" if $server;

system "$arast stat @ARGV";
                    

{'fraction_non_alphanumeric': 0.14434008897676717, 'fraction_numerical': 0.0009886307464162135, 'mean_word_length': 2.6142857142857143, 'pattern_counts': {'":': 0, '<': 7, '<?xml version=': 0, '>': 7, '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': '3261407', 'n_tokens_mistral': 726, 'n_tokens_neox': 712, 'n_words': 239}