VPF::Вопрос про $! (текущая ошибка) - Форум программистов

DNk704

Дата 12.1.2007, 22:51 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

Привет всем.
Пытаюсь написать скрипт, работающий с Googl`ом через API и уменя появился вопрос следущего харрактера, имеется код:

Код


#!/usr/bin/perl
use Net::Google;

$google = Net::Google->new(key=>'Ztad/DNQFHKz50rfBCdUu9M05DeToqWB',http_proxy=>'http://142.103.2.1:3128',debug=>0);
$search = $google->search();
$search->query(qw(dance));
$search->lr(qw(en));
$search->starts_at(0);
$search->max_results(10);
map { print $_->URL()."\n"; } @{$search->results()};
if($!)
{
    print "ERROR FOUND\n";
    print "################################\n";
    print "$!\n";
    print "################################\n";
}
else
{
    print "ERROR NO FOUND\n";
    print "################################\n";
    print "$!\n";
    print "################################\n";
}
$google = Net::Google->new(key=>'Ztad/DNQFHKz50rfBCdUu9M05DeToqWB',http_proxy=>'http://142.103.2.1:3128',debug=>0);
$search = $google->search();
$search->query(qw(dance));
$search->lr(qw(en));
$search->starts_at(0);
$search->max_results(10);
map { print $_->URL()."\n"; } @{$search->results()};
if($!)
{
    print "ERROR FOUND\n";
    print "################################\n";
    print "$!\n";
    print "################################\n";
}
else
{
    print "ERROR NO FOUND\n";
    print "################################\n";
    print "$!\n";
    print "################################\n";
}

результат следущий :

Код


sh-3.00# perl net.pl
405 Method Not Allowed at /usr/lib/perl5/site_perl/5.8.7/SOAP/Lite.pm line 3412
ERROR FOUND
################################
Descriptor de fichero errцЁneo
################################
405 Method Not Allowed at /usr/lib/perl5/site_perl/5.8.7/SOAP/Lite.pm line 3412
ERROR NO FOUND
################################

################################
sh-3.00#

так вот вопрос: почему при первой ошибке в $! записалось значение ошибки, а во второй раз нет, ведь выполнен два раза один и тот же код ? меня это поставило в тупик, плз. помогите.

tishaishii

Дата 15.1.2007, 23:10 (ссылка)

(нет голосов)

Загрузка ...

Создатель

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

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

Ну напиши парсер, используя IO::Socket::INET

DiverD

Дата 17.1.2007, 12:30 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

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

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

у тебя ошибка в коде ,может название метода не так прописал, ты посмори mcedit /usr/lib/perl5/site_perl/5.8.7/SOAP/Lite.pm

--------------------

[ FreeBSD & pERL p0WER eVERY dAY ]

DNk704

Дата 18.1.2007, 19:21 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

DiverD
Я могу ошибаться, но помоему это не ошибка в коде, скрипт так реагирует на плохие прокси, с нормальными все проходит гладко.

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