WWW::Babelfish usage problem

vit has asked for the wisdom of the Perl Monks concerning the following question:

Dear Monks,
I started using this module on my web srever with "service => 'Yahoo'" and everything was fine until I started being banned after sending say 8-10 translation requests.
Does anybody have such experience? Do they need some registration key or whatever? I use it this way:

use WWW::Babelfish;

my $obj = new WWW::Babelfish    ( 
                service => 'Yahoo',
                agent     => $user_agent, 
                );
 
if (defined($obj))
{
    $text = $obj->translate    ( 
                'source'     => 'Dutch',
                                'destination'     => 'English',
                                'text'         => $text,
                                'delimiter'     => "\n\t",    
                );

    $text = "Could Not Translate: " . $obj->error if(! defined($text))
}
else
{
    $text = "Translation server unavailable"
}
[download]

Another question is what do I need to be able to use Google as "service"? They do require some key and something else. Could someone share experience.

Comment on WWW::Babelfish usage problem Download Code

Replies are listed 'Best First'.
Re: WWW::Babelfish usage problem by eff_i_g (Curate) on Apr 08, 2011 at 18:26 UTC
Have a gander at Yahoo's TOS (Terms of Service): You agree not to modify the Software in any manner or form, nor to use modified versions of the Software, including (without limitation) for the purpose of obtaining unauthorized access to the Yahoo! Services. You agree not to access the Yahoo! Services by any means other than through the interface that is provided by Yahoo! for use in accessing the Yahoo! Services.	[reply]
Re^2: WWW::Babelfish usage problem by vit (Friar) on Apr 08, 2011 at 18:55 UTC
I think it is irrelevant. I am not using Yahoo search URL.	[reply]
Re^3: WWW::Babelfish usage problem by eff_i_g (Curate) on Apr 08, 2011 at 20:29 UTC
Google's TOS delves deeper into what is meant by not-a-Google interface: 5.3 You agree not to access (or attempt to access) any of the Services by any means other than through the interface that is provided by Google, unless you have been specifically allowed to do so in a separate agreement with Google. You specifically agree not to access (or attempt to access) any of the Services through any automated means (including use of scripts or web crawlers) and shall ensure that you comply with the instructions set out in any robots.txt file present on the Services. Some modules that are made to work with web services, like Net::Amazon::EC2, provide options to specify access keys, thus making their use legal.	[reply]
Re^3: WWW::Babelfish usage problem by Anonymous Monk on Apr 08, 2011 at 20:05 UTC
WWW::Babelfish ( service => 'Yahoo', ... How do you figure that code isn't using the Yahoo service? Also, URLs have nothing to do with it.	[reply]
Re: WWW::Babelfish usage problem by Khen1950fx (Canon) on Apr 09, 2011 at 16:22 UTC
To use Google as a service, WebService::Google::Language worked for me. `#!/usr/bin/perl use strict; use warnings; use WebService::Google::Language; use Data::Dump qw(dump); my $service = WebService::Google::Language->new( referer => 'http://example.com', env_proxy => 0, src => 'nl', dest => 'en', ); my $result = $service->translate("Hallo en tot ziens"); print dump($result);` [download]	[reply] [d/l]