> Привет всем... > Нужно соединится через сокет с сервисом и при этом > использовать таймаут. С процедурой 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;
Привет всем...
Нужно соединится через сокет с сервисом и при этом использовать таймаут. С процедурой alarm не работает(у меня апачи и перл под win32, а alarm под винду не работает )...
Может предложите какое- нибудь решение под win32 или пришлите пример работающий скрипта..
Заранее благодарствую за помощь...
> Привет всем... > Нужно соединится через сокет с сервисом и при этом > использовать таймаут. С процедурой 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;
подробно о проекте
Анализ криптографических сетевых...
новое сообщение
закрытая нитка
новое сообщение
в закрытой нитке
старое сообщение
