view release on metacpan or  search on metacpan

bin/ogmios-nlp-client  view on Meta::CPAN

#!/usr/bin/perl -w


use strict;
use IO::Socket;
use Alvis::NLPPlatform;
use Alvis::NLPPlatform::Annotation;

use Pod::Usage;
use Config::General;
use Data::Dumper;
use Getopt::Long;

# Process Option

my $man = 0;
my $help = 0;
my $rcfile = "";

GetOptions('help|?' => \$help, man => \$man, "rcfile=s" => \$rcfile) or pod2usage(2);
pod2usage(1) if $help;
pod2usage(-exitstatus => 0, -verbose => 2) if $man;

if (($rcfile eq "") || (!(-f $rcfile))) {
    pod2usage(1);
    warn "No such config file or config file is not set\n";
} 


Alvis::NLPPlatform::client($rcfile);


__END__

=head1 NAME

alvis-nlp-client - Perl script for the client of the Alvis NLP Platform running in the distributed mode. 

=head1 SYNOPSIS

alvis-nlp-client [options]

=head1 OPTIONS

=over 4

=item    B<--help>            brief help message

=item    B<--man>             full documentation

=item    B<--rcfile=file>     read the given configuration file

=back

=head1 DESCRIPTION

This script is the client part of the ALVIS NLP Platform in 
distributed mode. It aims at linguistically annotating the document
sent by the server. The annotated document is returned to the
server once the annotation process. One document is processed at
a time.

The linguistic annotation depends on the configuration variables and
depndencies between annotation levels.

For each connection to the server, the client performs connection ten
times before exit (one second between each attempt).

The INT signal is ignored during the communication with the server to
avoid losing documents (see function C<sigint_handler>).