View source for Batch Results Retrieval in Perl

<syntaxhighlight lang="perl" line="1" >
#! /usr/bin/perl

########################################################################
#
#  Example client to retrieve the results of a batch request to TextServer 
#
#  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>