Date: Wed, 15 Oct 2008 18:12:06 +0300
From: Octavian Rasnita <orasnita@xxxxxxxxx>
Reply-To: programmingblind@xxxxxxxxxxxxx
To: programmingblind@xxxxxxxxxxxxx
Subject: Re: Seeking help with a Perl module for translating languages
Hi Jamal,
If you want to create a program that does translations, you can use
Lingua::Translate or REST::Google::Translate.
With Lingua::Translate you can translate with Babelfish or Intertrans,
depending on the backend you set the program. Here are a few examples:
# Uses Babelfish:
use Lingua::Translate;
my $trans = Lingua::Translate->new(
back_end => 'Babelfish',
src => "en",
dest => "it",
);
print $trans->translate("Hello world");
#It prints: Ciao mondo
#The following uses InterTran (the same with the InterTrans back-end):
use Lingua::Translate;
my $trans = Lingua::Translate->new(
back_end => 'InterTran',
src => "en",
dest => "it",
);
print $trans->translate("Hello world");
#It prints: Salve mondiale
# The following uses Google:
use REST::Google::Translate;
REST::Google::Translate->http_referer('http://example.com');
my $res = REST::Google::Translate->new(
q => 'hello world',
langpair => 'en|it',
);
die "response status failure" if $res->responseStatus != 200;
my $translated = $res->responseData->translatedText;
print $translated;
#It prints: ciao a tutti
Octavian
----- Original Message -----
From: "Jim Dunleavy" <jim.dunleavy@xxxxxx>
To: <programmingblind@xxxxxxxxxxxxx>
Sent: Wednesday, October 15, 2008 4:42 PM
Subject: Re: Seeking help with a Perl module for translating languages
> Hi Jamal,
>
> I wrote a Python script that can query Yahoo Babelfish or Google
> Translate.
> I can post it if you are interested.
>
> --Jim
>
> ----- Original Message -----
> From: Jamal Mazrui <empower@xxxxxxxxx>
> To: <programmingblind@xxxxxxxxxxxxx>
> Sent: Tuesday, October 14, 2008 10:33 PM
> Subject: Re: Seeking help with a Perl module for translating languages
>
>
>> Thanks for the info. I'm looking for a programmatic way of doing a
>> translation, that is, a way that a program I write can control the UI
>> rather than depending on the UI of a web page or other desktop
>> program.
>> Do you know of something that meets this criteria?
>>
>> Jamal
>> On Tue, 14 Oct 2008,
>> Demetry Yousifidou wrote:
>>
>> > Date: Tue, 14 Oct 2008 23:31:26 +0200
>> > From: Demetry Yousifidou <demetry.yousifidou@xxxxxxxxxxxxxx>
>> > Reply-To: programmingblind@xxxxxxxxxxxxx
>> > To: programmingblind@xxxxxxxxxxxxx
>> > Subject: Re: Seeking help with a Perl module for translating
>> > languages
>> >
>> > Hi Jamal, try the translator from Google.com -> Language Tools or
>> > the
>> > web and the program from www.QuickDic.org.
>> > HTH.
>> >
>> > Demetry
>> >
>> > On 10/14/2008 11:23 PM, Jamal Mazrui wrote:
>> > > With Perl 5.8, I am trying to use the module
>> > > WWW::Search::Translator,
>> > > which programmatically translates text between different natural
> languages
>> > > using babel.altavista.com.
>> > >
>> > > When I run the sample code in the documentation, I get an error
>> > > about
> a
>> > > missing param function. After web searches, I found that the CGI
> module
>> > > includes a function by that name, but using that module as well
> produced
>> > > another error message instead.
>> > >
>> > > Can anyone help? Below is the error message, followed by the
>> > > code.
>> > >
>> > > Jamal
>> > >
>> > > Undefined subroutine &main::param called at TranLang.pl line 2.
>> > >
>> > >
>> > > use WWW::Search;
>> > > %opts = (
>> > > lp => param(en_de),
>> > > );
>> > > $query = "a whole bunch of english text to be translated to
> german";
>> > > my $search = new WWW::Search('Translator');
>> > >
>> > > $search->native_query(WWW::Search::escape_query($query),\%opts);
>> > > while (my $result = $search->next_result())
>> > > {
>> > > $p = $result->raw;
>> > > print "$p";
>> > > }
>> > >
>> > >
>> > > __________
>> > > View the list's information and change your settings at
>> > > //www.freelists.org/list/programmingblind
>> > >
>> > >
>> > __________
>> > View the list's information and change your settings at
>> > //www.freelists.org/list/programmingblind
>> >
>> __________
>> View the list's information and change your settings at
>> //www.freelists.org/list/programmingblind
>>
>
> ----------------------------------------------------------------------------
> "Information in this email (including attachments) is confidential.
> It is intended for receipt and consideration only by the intended
> recipient.
> If you are not an addressee or intended recipient, any use,
> dissemination,
> distribution, disclosure, publication or copying of information
> contained
> in
> this email is strictly prohibited. Opinions expressed in this email
> may
> be
> personal to the author and are not necessarily the opinions of the HSE.
>
> If this email has been received by you in error we would be grateful if
> you
> could immediately notify the ICT Service Desk by telephone at +353 1
> 6352757
> or by email to service.desk@xxxxxxxxxxxx and thereafter delete this
> e-mail from your system"
> ----------------------------------------------------------------------------
> __________
> View the list's information and change your settings at
> //www.freelists.org/list/programmingblind
>
__________
View the list's information and change your settings at
//www.freelists.org/list/programmingblind
