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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Проблема с ограничением по времени 
:(
    Опции темы
Usya
  Дата 7.6.2005, 21:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

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



У меня проблема

Не могу понять, почему не работает ограничение по времени
Код

my $au = LWP::UserAgent->new(timeout=>30);
my $doc=$au->request(HTTP::Request->new(GET=>$urll));

Насколько я понял, если время превышает 30 сек, то должен последовать выход из запроса. А такого не происходит. Кроме того, по умолчанию стоит 180 сек. Но это ограничение кажется тоже не действует.

И еще один вопрос: как можно контролировать время выполнения скрипта?
В частности, если возникнут какие-нибудь проблемы во время выполнения разработанного скрипта, чтобы он сам завершил работу по истечении определенного времени, например 30 сек. При этом при экстренном выходе, если возможно, выполнялась бы некоторая процедура (например, сохранение данных).

Заранее благодарен за любой совет.
--------------------
Я не волшебник, я только учусь...
PM MAIL   Вверх
Sadok
Дата 8.6.2005, 11:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



А так?
Код

use LWP::UserAgent;
$ua = LWP::UserAgent->new;
$ua->timeout(30) #кстати, может тут в кавычках надо, как ниже в строке?
$req = HTTP::Request->new(GET => 'http://www.linpro.no/lwp');
$res = $ua->request($req);
if ($res->is_success) {
print $res->content;
} else {
print "Error: " . $res->status_line . "\n";
}

По второму вопросу смотреть в сторону alarm. Где-то рядом уже обсуждалось.
А.. вот тут

Это сообщение отредактировал(а) Sadok - 8.6.2005, 11:38
PM   Вверх
Usya
Дата 8.6.2005, 21:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

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



На счет alarm - большое спасибо, помогла лекарочка smile

А на счет кода - это скорее всего тоже самое, я поначалу это вариант и пробовал, потом тот, который сам привел... Проблема еще в том, как проверить работоспособность??? Единственное по чем я могу судить-это по глюкам в логфайле (слишком большое время выполнения скрипта).

В добавок ко всему наткнулся еще на одну проблему из тойже серии. По ходу дела head($url) из LWP::Simple тоже может хорошо притормаживать.

Все нюансы и причины сомнений по поводу timeout() описать не могу, надо еще самому повозиться. Может зря наговариваю. Проблема еще в том как обкатать код. Как отловить глюк на чужом сервере в течении дня либо самому у себя его создать? В добавок ко всему, не хочется испытывать терпение ребят из отдела хостинга.

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


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

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


 




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


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

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