информационная безопасность
без паники и всерьез
 подробно о проектеRambler's Top100
За кого нас держат?Spanning Tree Protocol: недокументированное применение
BugTraq.Ru
Русский BugTraq
 Анализ криптографических сетевых... 
 Модель надежности двухузлового... 
 Специальные марковские модели надежности... 
 Блокировка российских аккаунтов... 
 Отзыв сертификатов ЦБ РФ, ПСБ,... 
 Памятка мирным людям во время информационной... 
главная обзор RSN блог библиотека закон бред форум dnet о проекте
bugtraq.ru / форум / programming
Имя Пароль
ФОРУМ
если вы видите этот текст, отключите в настройках форума использование JavaScript
регистрация





Легенда:
  новое сообщение
  закрытая нитка
  новое сообщение
  в закрытой нитке
  старое сообщение
  • Напоминаю, что масса вопросов по функционированию форума снимается после прочтения его описания.
  • Новичкам также крайне полезно ознакомиться с данным документом.
[Perl] Ура...решение нашлось 02.11.02 16:59  Число просмотров: 946
Автор: user555 Статус: Незарегистрированный пользователь
<"чистая" ссылка>
vp016:Спасибо...
<programming>
[Perl] предложите какое- нибудь решение 01.11.02 21:07  
Автор: user555 Статус: Незарегистрированный пользователь
<"чистая" ссылка>
Привет всем...
Нужно соединится через сокет с сервисом и при этом использовать таймаут. С процедурой alarm не работает(у меня апачи и перл под win32, а alarm под винду не работает )...
Может предложите какое- нибудь решение под win32 или пришлите пример работающий скрипта..
Заранее благодарствую за помощь...
[Perl] Ура...решение нашлось 02.11.02 16:59  
Автор: user555 Статус: Незарегистрированный пользователь
<"чистая" ссылка>
vp016:Спасибо...
[Perl] предложите какое- нибудь решение 02.11.02 13:23  
Автор: vp016 Статус: Незарегистрированный пользователь
<"чистая" ссылка>
> Привет всем...
> Нужно соединится через сокет с сервисом и при этом
> использовать таймаут. С процедурой alarm не работает(у
> меня апачи и перл под win32, а alarm под винду не работает
> )...
> Может предложите какое- нибудь решение под win32 или
> пришлите пример работающий скрипта..
> Заранее благодарствую за помощь...
При сoздании сокета:
use IO::Socket;

my $sock = new IO::Socket::INET (...., Timeout => $timeout);

select поможет при чтении.

sub tsysread {
my $sock = shift|return (-1);
my $buff = shift|return (-1);
my $size = shift|return (-1);
my $rn;
my $n;

vec ($rn, fileno($$sock), 1) = 1;
$n = select ($rn, undef, undef, $timeout);
if ($n) {
sysread ($$sock, $$buff, $size);
} else {
return (-1);
}
}

Работало без проблем на всех платформах.
1




Rambler's Top100
Рейтинг@Mail.ru


  Copyright © 2001-2022 Dmitry Leonov   Page build time: 0 s   Design: Vadim Derkach