Lingua::Translate::SysTrans - Translation back-end for SysTran's enterprise translation server, version 0.01 (European languages only)
use Lingua::Translate;
Lingua::Translate::config ( back_end => "SysTran", host => "babelfish.mydomainname.com", );
my $xl8r = Lingua::Translate->new(src => "de", dest => "en");
# prints "My hovercraft is full of eels" print $xl8r->translate("Mein Luftkissenfahrzeug ist voll von den Aalen");
Lingua::Translate::SysTran is a translation back-end for Lingua::Translate that contacts a SysTran translation server to do the real work.
You should try to avoid putting the config()
command that sets the
location of the server in all of your scripts; make a little
configuration module or put it in a script you can `require'.
Creates a new translation handle. This won't initiate a connection until you try to translate something.
The following methods may be called on Lingua::Translate::SysTran objects.
translate($text)
: $translatedTranslates the given text. die's on any kind of error.
available()
: @listReturns a list of available language pairs, in the form of ``XX_YY'', where XX is the source language and YY is the destination. If you want the english name of a language tag, call I18N::LangTags::List::name() on it. See the I18N::LangTags::List manpage.
If you call this function without configuring the package, it returns all of the languages that there are known back-ends for.
This function sets defaults for use when constructing objects.
If this configuration option is defined, then attempts to translate undefined languages will fail. There is no default value for this option.
Returns the host name and port number for the given language pair.
To determine the default port number, take the one-letter code for the language from the below table, express as a number in base 25 (A=0, B=1, etc) and then add 10000 decimal. Eg en => de would be EG, which is 106 decimal, or port 10106.
en => E de => G it => I fr => F pt => P es => S el => K
No support for non-ISO-8859-1 character sets - with the software I have, there is no option.
the Lingua::Translate manpage, the LWP::UserAgent manpage, the Unicode::MapUTF8 manpage
Sam Vilain, <enki@snowcra.sh>