Скриптреквест: выдача первой ссылки в гугле

http://xml.yandex.ru/

http://code.google.com/intl/ru/apis/ajaxsearch/

Оба раза мимо. Мне его надо из консольки дергать, а не к сайту прикручивать.

> Пробовал потыкать libnet-google-perl, но даже пример из манов работать не захотел.

А у меня работает, но как-то избирательно. Например, слово «жопа» искать не хочет.

#!/usr/bin/perl
use Net::Google;
use constant LOCAL_GOOGLE_KEY => "ouMVkMNQFHLQxhw96VunraH5SRWyRBhf";
close(STDERR);

my $google = Net::Google->new(key=>LOCAL_GOOGLE_KEY);
my $search = $google->search();
my $query = join(' ', @ARGV);
$query = "\"$query\"" if int(@ARGV) == 1;

$search->query($query);
$search->lr(qw(ru en));
$search->starts_at(0);
$search->max_results(15);

print "| \x1b[31m$query\x1b[0m |\n\n";
map {
        my $title = $_->title();
        $title =~ s/<b>/\x1b[33m/g;
        $title =~ s/<\/b>/\x1b[0m/g;
        print $title."\n";
        print "\x1b[36m".$_->URL()."\x1b[0m\n\n";
} @{$search->results()};

Кнопочку "Мне повезёт!" в Гугле видел? Вот это и есть первая ссылка - дальше писать три строчки, давай - не расклеивайся:)

Спасибо, вроде работает. Только вот меня сильно смущает:

> use constant LOCAL_GOOGLE_KEY => "ouMVkMNQFHLQxhw96VunraH5SRWyRBhf";

> Кнопочку "Мне повезёт!" в Гугле видел? Вот это и есть первая ссылка - дальше писать три строчки, давай - не расклеивайся:)

я ей не пользовался никогда: всй больше через :o gg something хожу

А это тот самый ключ что нужно получить по ссылке которую я давал.

> А это тот самый ключ что нужно получить по ссылке которую я давал.

Придётся лицензию читать, ведь я это не для личного использования делать собираюсь. А всякие регистрационные ключи попахивают анальным рабством...

Не совсем. Боюсь, что для SOAP Search API (http://code.google.com/intl/ru/apis/soapsearch/) и AJAX Search API используются разные ключи. Для SOAP ключи уже не выдают. В скрипте использован не мой ключ, а найденный в гугле ключ для бота sulci.

Там ограничение на 1000 запросов. Возможно лучше всё-таки написать свою парсилку :)

1000 запросов в день.

тут где-то были консольные скрипты для гугла, в talks кажется

Может подойти вариант (perl|ruby|python)+Mechanize

В примерах использования обычно есть и парсилка результатов поиска гугла.

Да, что-то нашёл. Спасибо участвовавшим.