Форум программистов [Powered by Invision Power Board]

Код

#!/usr/local/bin/perl
# net_googly.pl
# A typical Google API script using the Net::Google Perl module.
# Usage: perl net_googly.pl <query>
use LWP::Simple;
use LWP::UserAgent;
use HTTP::Request;
use SOAP::Lite;
use SOAP::Transport::HTTP;

use strict;

# Your Google API developer's key.
my $google_key='мой ключ';
     
# Location of the GoogleSearch WSDL file.
my $google_wdsl = "C:\\Perl\\lib\\GoogleSearch.wsdl";
     
# Take the query from the command line.
my $query = shift @ARGV or die "Usage: perl googly.pl <query>\n";
     
# Create a new SOAP::Lite instance, feeding it GoogleSearch.wsdl.
my $google_search = SOAP::Lite->service("file:$google_wdsl");
     
# Запрос Google.
my $results = $google_search->doGoogleSearch(
    $google_key, $query, 0, 10, "false", "", "false",
    "", "latin1", "latin1"
  );
# Нет результатов?
@{$results->{resultElements}} or exit;
# Просмотрите результаты.
foreach my $result (@{$results->{resultElements}}) {
  # Set the results as variables
    my $title = $result->{title} || "no title";
    my $url = $result->{URL};
    my $snippet = $result->{snippet} || 'no snippet';
  # Вырежьте HTML из результатов
    $title =~ s!<[^>]+>!!gis;
    $snippet =~ s!<[^>]+>!!gis;
  # Напечатайте основные фрагменты каждого результата
  print
    join "\n",
    $title,
    $url,
    $snippet,
    "\n";
}