Perl Batch Client - Revision history

Padro at 11:02, 21 January 2016

2016-01-21T11:02:37Z

Padro at 12:13, 20 January 2016

2016-01-20T12:13:47Z

Padro: Created page with " "

2016-01-20T12:11:26Z

Created page with "<syntaxhighlight lang="perl" line="1" > </syntaxhighlight>"

New page

@@ Line 24: / Line 24: @@
 print "Input ZIP file: ";
 my $fname=<>; chomp $fname;
 print "Language: ";
 my $lang=<>; chomp $lang;
@@ Line 62: / Line 60: @@
 $twig->parse($resp->decoded_content);
 my $tkid = $twig->root->text("job_token_id");
-print "Job sumbitted. Token id: [$tkid]\n";
+print "Job sumbitted. Token id=$tkid\n";
-−
-# Periodically poll server until batch job is ended.
-my $nseconds=20;
-while (1) {
-−
-    print "Sleeping for $nseconds seconds\n";
-    sleep($nseconds);
-−
-    # send request to check for job termination
-    print "Polling server for job completion...\n";
-    $resp = $ua->post($TextServer_URL."/resultRetrieve",
-                      Content_Type => 'form-data',
-                      Content  => [username => $user, tokenID => $tkid] );
-−
-    # if status=200, we a got ZIP response, the job is done, exit loop.
-    if ($resp->is_success) { last; }
-−
-    # status!=200, check the error code
-    if ($resp->code==503 && $resp->decoded_content =~ /^\[TS\-125\]/ ) {
-        # http status 503, textserver code TS-125 means the job is not finished yet. keep waiting
-        print "Job not finished yet\n";
-−
-    else {
-        # some actual error happened. abort
-        die $resp->status_line." - ".$resp->decoded_content."\n"
-−
-−
-−
-# print zipped respose to output file
-print "Job finished. Saving results to $outfname\n";
-open(my $outf, '>', $outfname);
-print $outf $resp->decoded_content;
-close $outf;
 </syntaxhighlight>

← Older revision		Revision as of 12:13, 20 January 2016
Line 1:		Line 1:
	<syntaxhighlight lang="perl" line="1" >		<syntaxhighlight lang="perl" line="1" >
		+	#! /usr/bin/perl
		+
		+	########################################################################
		+	#
		+	# Example client to submit a batch request to TextServer
		+	# SERVICENAME service, and wait for the job to be finished.
		+	#
		+	# Input must be a ZIP file containing one or more text files to analyze
		+	# Output will be a ZIP file containing results for each input file in
		+	# the requested format (XML, json, conll)
		+	#
		+	########################################################################
		+
		+	use strict;
		+
		+	# import needeed libraries
		+	use HTTP::Request::Common;
		+	use LWP::UserAgent;
		+	use XML::Twig;
		+	use XML::LibXML;
		+
		+	# get query parameters
		+	print "Input ZIP file: ";
		+	my $fname=<>; chomp $fname;
		+	print "Output ZIP file: ";
		+	my $outfname=<>; chomp $outfname;
		+	print "Language: ";
		+	my $lang=<>; chomp $lang;
		+	print "Output format (xml,json,conll,naf): ";
		+	my $out=<>; chomp $out;
		+	print "TextServer username: ";
		+	my $user=<>; chomp $user;
		+	print "TextServer password: ";
		+	my $pwd=<>; chomp $pwd;
		+
		+	# URL for the requested service
		+	my $TextServer_URL = "http://frodo.lsi.upc.edu:8080/TextWS/textservlet/ws";
		+	my $service = "SERVICENAME";
		+
		+	# create user agent
		+	my $ua = LWP::UserAgent->new;
		+
		+	# send request to server
		+	my $resp = $ua->post($TextServer_URL."/processQuery/".$service,
		+	Content_Type => 'form-data',
		+	Content => [
		+	username => $user,
		+	password => $pwd,
		+	file => [$fname],
		+	language => $lang,
		+	output => $out,
		+	interactive => "0"
		+	]
		+	);
		+
		+	# check for success in connection
		+	die $resp->status_line." - ".$resp->decoded_content."\n" unless $resp->is_success;
		+
		+	# Server response should include a job tokenID, retrieve it
		+	my $twig= new XML::Twig();
		+	$twig->parse($resp->decoded_content);
		+	my $tkid = $twig->root->text("job_token_id");
		+	print "Job sumbitted. Token id: [$tkid]\n";
		+
		+	# Periodically poll server until batch job is ended.
		+	my $nseconds=20;
		+	while (1) {
		+
		+	print "Sleeping for $nseconds seconds\n";
		+	sleep($nseconds);
		+
		+	# send request to check for job termination
		+	print "Polling server for job completion...\n";
		+	$resp = $ua->post($TextServer_URL."/resultRetrieve",
		+	Content_Type => 'form-data',
		+	Content => [username => $user, tokenID => $tkid] );
		+
		+	# if status=200, we a got ZIP response, the job is done, exit loop.
		+	if ($resp->is_success) { last; }
		+
		+	# status!=200, check the error code
		+	if ($resp->code==503 && $resp->decoded_content =~ /^\[TS\-125\]/ ) {
		+	# http status 503, textserver code TS-125 means the job is not finished yet. keep waiting
		+	print "Job not finished yet\n";
		+	}
		+	else {
		+	# some actual error happened. abort
		+	die $resp->status_line." - ".$resp->decoded_content."\n"
		+	}
		+	}
		+
		+	# print zipped respose to output file
		+	print "Job finished. Saving results to $outfname\n";
		+	open(my $outf, '>', $outfname);
		+	print $outf $resp->decoded_content;
		+	close $outf;
	</syntaxhighlight>		</syntaxhighlight>