VPF::Установление постоянного соединения

kostofffan

Дата 3.8.2004, 00:52 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Помогите, пожалуйста, с такой проблемкой. Пишу, значит так:

Код

my $sock = IO::Socket::INET->new(LocalAddr => 'localhost:100', Type => SOCK_STREAM, ReuseAddr => 1, Proto => 'tcp', Listen => 5);
my $cl = $sock->accept;
print "New ! \n";
while (defined($a = <$cl>)) { print $a; }

Далее приходится закрывать соединение и создавать сокет по новой. В итоге у меня получилось так:

Код

#!perl -w
use IO::Socket;
use IO::Select;
my $sock = IO::Socket::INET->new(LocalAddr => 'localhost:100', Type => SOCK_STREAM, ReuseAddr => 1, Proto => 'tcp', Listen => 5);
my $cl = $sock->accept;
print "New ! \n";
while (defined($a = <$cl>)) { print $a; }
$cl->close;
$cl = $sock->accept;
print $cl "Content-Type: text/plain\n\n1234455512333144412122334\n";
$cl->close;
<stdin>;

Никак не могу расчехлиться, в чем прикол. Хелп.

Спасибо!

achmed

Дата 3.8.2004, 09:05 (ссылка)

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

Загрузка ...

Бывалый

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

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

не понял, а зачем закрывать $cl, после

Код


while (defined($a = <$cl>)) { print $a; }

можно после этого в него писать

в твоей программе данные читаются с блокировкой, т.е. пока
данные не поступят или клиент не разоавето соединение, программа не
выйдет из блока

Код


$a = <$cl>

нужно, либо анализировать данные, считываемые с сокета по ходу считывания
и всоевременно прекращать чтение, либо сделать неблокирующийй ввод-вывод
в сокете.

ElectricalStorm

Дата 3.8.2004, 10:03 (ссылка)

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

Загрузка ...

Опытный

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

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

читаем перлдок

http://www.perldoc.com/perl5.8.4/pod/perli...r-Communication

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

Нужно знать инструмент, которым пользуешься

kostofffan

Дата 3.8.2004, 23:00 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

ага, понял. Сенкс!

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