#! /usr/bin/env perl
#
# Old version, its use is ... discouraged. See bug
# https://github.com/singnet/language-learning/issues/179
# This version uses netcat to make a server round-trip, which creates
# a huge idle delay, as we wait for the OS kernel scheduler to run us
# again. use `submit-one.pl` instead.
#
# submit-one.pl <cogserver-host> <cogserver-port> <observe-cmd>
#
# Submit a collection of sentences, one sentence at a time, to the
# cogserver located on host ARGV[0] and port ARGV[1]. The sentences
# are read from standard input, and must be arranged with one sentence
# per line. The are sent to the cogserver using ARGV[2] as the command.
#
# For word-pair counting, ARGV[2] is "observe-text"
# For disjunct counting, ARGV[2] is "observe-mst"
#
# Example usage:
# cat file | ./submit-one.pl localhost 17001 observe-text
#
die "Wrong number of args!" if ($#ARGV != 2);
# Verify that the host and port number are OK.
`nc -z $ARGV[0] $ARGV[1]`;
die "Netcat failed! Bad host or port?" if (0 != $?);
my $netcat = "|nc -N $ARGV[0] $ARGV[1]";
my $start_time = time();
while (<STDIN>)
{
if (/<P>/) { next; }
chop;
# open(NC, "|nc localhost 17002") || die "nc failed: $!\n";
open NC, $netcat || die "nc failed: $!\n";
print NC "($ARGV[2] \"$_\")\n";
my $elapsed = time() - $start_time;
print "submit-one (elapsed $elapsed): $_\n";
}
print "Done with article.\n";