Модераторы: korob2001, ginnie
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Ошибка 
:(
    Опции темы
Alexey68
Дата 1.8.2015, 02:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Alexey
*


Профиль
Группа: Участник
Сообщений: 98
Регистрация: 10.4.2013

Репутация: нет
Всего: нет



Привет All.
В чём ошибка сценария?
Код

#!/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";
}

при выполнении пишет:
404 Not found at search googly.pl line 26.
Прошу Вашей помощи.
PM MAIL   Вверх
_zorn_
Дата 1.8.2015, 10:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1077
Регистрация: 21.8.2007

Репутация: нет
Всего: 12



Он же тебе и так всё рассказал.
 На 26 строке ты юзаеш переменную которая никак не определилась.
SOAP::Lite либо не сработал, либо гуано ты ему передал. 

Почему новички не читают сообщения об ошибках ?

Добавлено через 3 минуты и 2 секунды
А по поводу wsdl - у пхп есть кешь, который по умолчанию кэширует на сутки wsdl.
Может у тебя в этом проблема

Добавлено через 4 минуты и 22 секунды
Тьфу ты, у тебя перл. Ну у перла наверное тоже есть кешь.
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Perl: CGI программирование"
korob2001
sharq
  • В этом разделе обсуждаются вопросы относящиеся только к CGI программированию
  • Если ваш вопрос не относится к системному или CGI программированию, задавайте его в общем разделе
  • Если ваш вопрос относится к системному программированию, задавайте его здесь
  • Интерпретатор Perl можно скачать здесь ActiveState, O'REILLY, The source for Perl
  • Справочное руководство "Установка perl-модулей", качать здесь


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, korob2001, sharq.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Perl: разработка для Web | Следующая тема »


 




[ Время генерации скрипта: 0.1169 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.