Padro at 11:31, 21 January 2016

2016-01-21T11:31:27Z

Padro at 11:28, 21 January 2016

2016-01-21T11:28:25Z

Padro: Created page with " "

2016-01-21T11:26:43Z

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

New page

@@ Line 4: / Line 4: @@
 ########################################################################
+#
-#  Example client to submit a batch request to TextServer
+#  Example client to retrieve the results of a batch request to TextServer
-# SERVICENAME service, and wait for the job to be finished.
+#
 #  Output will be a ZIP file containing results for each input file in
 # the requested format (XML, json, conll)

← Older revision		Revision as of 11:28, 21 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;
		+
		+	print "TextServer username: ";
		+	my $user=<>; chomp $user;
		+	print "TextServer Job Token ID: ";
		+	my $tkid=<>; chomp $tkid;
		+	print "Output ZIP file: ";
		+	my $outfname=<>; chomp $outfname;
		+
		+	# URL for the requested service
		+	my $TextServer_URL = "http://frodo.lsi.upc.edu:8080/TextWS/textservlet/ws";
		+
		+	# create user agent
		+	my $ua = LWP::UserAgent->new;
		+
		+	# send request to check for job termination
		+	print "Polling server for job completion...\n";
		+	my $resp = $ua->post($TextServer_URL."/resultRetrieve",
		+	Content_Type => 'form-data',
		+	Content => [username => $user,
		+	tokenID => $tkid
		+	]
		+	);
		+
		+	if ($resp->code==503 && $resp->decoded_content =~ /^\[TS\-125\]/ ) {
		+	# http status 503, textserver code TS-125 means the job is not finished yet.
		+	print "Job not finished yet\n";
		+	exit();
		+	}
		+
		+	elsif (!$resp->is_success) {
		+	# some other error happened, report it.
		+	die $resp->status_line." - ".$resp->decoded_content."\n";
		+	}
		+
		+
		+	# if status=200, we a got ZIP response, the job is done.
		+	# print zipped respose to output file
		+	open(my $outf, '>', $outfname);
		+	print $outf $resp->decoded_content;
		+	close $outf;
		+	print "Job finished. Results saved to ".$outfname."\n";
	</syntaxhighlight>		</syntaxhighlight>

Batch Results Retrieval in Perl - Revision history

Padro at 11:31, 21 January 2016

Padro at 11:28, 21 January 2016

Padro: Created page with " "