http://qs1969.pair.com?node_id=130374


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:
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
Those terms restrict "automated querying". So, possibly, this is the same problem you are experiencing.

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;