Padro at 12:01, 20 January 2016

2016-01-20T12:01:50Z

Padro: Created page with " "

2016-01-20T11:59:36Z

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

New page

← Older revision		Revision as of 12:01, 20 January 2016
Line 1:		Line 1:
−	<syntaxhighlight lang="~~python~~" line="1" >	+	<syntaxhighlight lang="perl" line="1" >
		+	#! /usr/bin/perl
		+
		+	########################################################################
		+	#
		+	# Example client to submit an interactive request to TextServer
		+	# SERVICENAME service.
		+	# Input may be a plain text or a text file. No ZIP files.
		+	# Output will be in the requested format (XML, json, conll)
		+	#
		+	########################################################################
		+
		+	use strict;
		+
		+	# import needeed libraries
		+	use HTTP::Request::Common;
		+	use LWP::UserAgent;
		+
		+	# get query parameters
		+	print "Text to analyze: ";
		+	my $text=<>; chomp $text;
		+	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 $service = "SERVICENAME";
		+	my $URL = "http://frodo.lsi.upc.edu:8080/TextWS/textservlet/ws/processQuery/".$service;
		+
		+	# create user agent
		+	my $ua = LWP::UserAgent->new;
		+
		+	# send request to server
		+	my $resp = $ua->post($URL,
		+	Content_Type => 'form-data',
		+	Content => [
		+	username => $user,
		+	password => $pwd,
		+	text_input => $text,
		+	language => $lang,
		+	output => $out,
		+	interactive => "1"
		+	]
		+	);
		+
		+
		+	# handle errors
		+	die $resp->status_line." - ".$resp->decoded_content."\n" unless $resp->is_success;
		+
		+	# No error, appropriately process response
		+	# (e.g. parsing XML or JSON, and doing clever stuff with the content)
		+	print $resp->decoded_content."\n";
	</syntaxhighlight>		</syntaxhighlight>

Perl Interactive Client - Revision history

Padro at 12:01, 20 January 2016

Padro: Created page with " "