Seeking help with a Perl module for translating languages

  • From: Jamal Mazrui <empower@xxxxxxxxx>
  • To: ProgrammingBlind@xxxxxxxxxxxxx
  • Date: Tue, 14 Oct 2008 17:23:46 -0400 (EDT)

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

Other related posts: