in reply to Difficulties with WWW::Search (code)
Hi,
I just tried installing and getting this module to work. I had the same problems.
I insterted a die $response->content() into the native_retrieve_some method. This was the response from the search:
I am not going to go into how one might be able to get round this limitation on a public forum like this, but recommend that users contact Google requesting permission or sign up for one of their services. However, I am really surprised that the module doesn't die or warn that a valid search results page was not returned. It might be worth contacting the WWW::Search::Google author.
Simon Flack ($code or die)
$,=reverse'"ro_';s,$,\$,;s,$,lc ref sub{},e;$,
=~y'_"' ';eval"die";print $_,lc substr$@,0,3;
I just tried installing and getting this module to work. I had the same problems.
I insterted a die $response->content() into the native_retrieve_some method. This was the response from the search:
Those terms restrict "automated querying". So, possibly, this is the same problem you are experiencing.Your client from the IP address xxx.xxx.xxx.xxx does not have permission to get URL /search?num=100&q=perl from this server. Please see Google's Terms of Service posted at http://www.google.com/terms_of_service.html
I am not going to go into how one might be able to get round this limitation on a public forum like this, but recommend that users contact Google requesting permission or sign up for one of their services. However, I am really surprised that the module doesn't die or warn that a valid search results page was not returned. It might be worth contacting the WWW::Search::Google author.
Simon Flack ($code or die)
$,=reverse'"ro_';s,$,\$,;s,$,lc ref sub{},e;$,
=~y'_"' ';eval"die";print $_,lc substr$@,0,3;
|
---|
In Section
Seekers of Perl Wisdom