mirror of
https://github.com/moses-smt/mosesdecoder.git
synced 2024-11-09 16:04:41 +03:00
4874f711ca
translation options. Also add a sample client to demonstrate these new features. git-svn-id: https://mosesdecoder.svn.sourceforge.net/svnroot/mosesdecoder/trunk@3265 1f5c12ca-751b-0410-a591-d2e778427230
30 lines
787 B
Perl
Executable File
30 lines
787 B
Perl
Executable File
#!/usr/bin/env perl
|
|
|
|
#
|
|
# Sample client for mosesserver, illustrating allignment info
|
|
#
|
|
|
|
use Encode;
|
|
use XMLRPC::Lite;
|
|
use utf8;
|
|
|
|
$url = "http://localhost:8080/RPC2";
|
|
$proxy = XMLRPC::Lite->proxy($url);
|
|
|
|
$text = "il a souhaité que la présidence trace à nice le chemin pour l' avenir .";
|
|
|
|
# Work-around for XMLRPC::Lite bug
|
|
$encoded = SOAP::Data->type(string => Encode::encode("utf8",$text));
|
|
|
|
my %param = ("text" => $encoded, "align" => "true");
|
|
$result = $proxy->call("translate",\%param)->result;
|
|
print $result->{'text'} . "\n";
|
|
if ($result->{'align'}) {
|
|
print "Phrase alignments: \n";
|
|
$aligns = $result->{'align'};
|
|
foreach my $align (@$aligns) {
|
|
print $align->{'tgt-start'} . "," . $align->{'src-start'} . ","
|
|
. $align->{'src-end'} . "\n";
|
|
}
|
|
}
|