Re: Seeking help with a Perl module for translating languages
- From: Jamal Mazrui <empower@xxxxxxxxx>
- To: programmingblind@xxxxxxxxxxxxx
- Date: Wed, 15 Oct 2008 13:28:55 -0400 (EDT)
Thanks, Octavian! How can I get those modules? my version of PPM is
not finding them even though I thought I had configured it for many
repositories. Perhaps I need to update my Perl.
Jamal
On Wed, 15 Oct 2008,
Octavian Rasnita wrote:
> 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
>
__________
View the list's information and change your settings at
//www.freelists.org/list/programmingblind
Other related posts:
