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

Dear Monks

I am playing with the module Google::Search to search the top results of a simple query. The module works fine. Though, I couldn't figure out how to restrict the search to a specific language. So far as I know the API supports this (lr=_lang_xx). Any Idea?

    use Google::Search;
    my $search = Google::Search->Web([ lr => 'it' ], query => "site:su
+nrise.ch" );
    while ( my $result = $search->next ) {
        print $result->rank, " ", $result->uri, "\n";
    }

[download]

This code snippet produces results in all languages used by this multilanguage site.

Thank you for your ideas. Welle

Replies are listed 'Best First'.
Re: Google::Search language
by Perlbotics (Archbishop) on May 15, 2011 at 10:22 UTC

    It's neither lr=_lang_xx nor lr=xx but lr=lang_xx (see here).

    However, the [ lr => 'lang_it' ] notation seems to be ignored by the Google::Search API. Try this: 

    my $search = Google::Search->Web( query    => { q  => "site:sunrise.ch
+",
                                                lr => 'lang_it',
                                                hl => 'it',
                                              },
                                  # key      => $your_google_api_key,
                                  # referrer => $valid_referrer, 
             );

    [download]
    ...which works better.
    You might also want to check $search->error and $search->error->reason ...

    Hint: Suspected Terms of Service Abuse. Please see http://code.google.com/apis/errors and key/referrer-comments above...

[reply]
[d/l]
[select]

      Thank you very much, it works perfectly.

[reply]

Back to Seekers of Perl Wisdom