ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Andrey Tapkin                        2:5020/400     07 Jan 2004  17:19:00
 To : All
 Subject : проблема с IO::Socket и т.п.
 -------------------------------------------------------------------------------- 
 

 Пишу TCP сервер для обработки запросов
 с использованием IO::Socket и IO::Select.
 
 При создании нового сокета:
 
 $lsn =
 IO::Socket::INET->new(Proto=>"tcp",LocalPort=>$port,Timeout=>1,Listen=>10,Re
 
 use=>1);
 
 $sel = IO::Select->new($lsn);
 .............
 while (@ready = $sel->can_read(0.01)) {
 foreach $client (@ready) {
 if ($client == $lsn) {
 $new = $client->accept;
 
 $sel->add($new);
 
 ....
 }
 }
 }
 
 Значение $new записываю в базу данных.
 После чего хочу использовать полученное значение из базы ($handle)
 для отправки сообщения клиенту: syswrite($handle,$message,length($message));
 
 Hо не работает.. клиент не получает ответ от сервера.
 Если использовать какой-нибудь метод, например $handle->peerhost,
 скажем, просто для проверки, тогда пишет следующее:
 Can't locate object method "peerhost" via package
 "IO::Socket::INET=GLOB(0x1b1aebc)"
  (perhaps you forgot to load "IO::Socket::INET=GLOB(0x1b1aebc)"?) at
 sock_server
 .pl line 143.
 
 Такая вот проблема, думаю решение есть, но не могу найти его.
 Буду благодарен, если кто-то из знающих просветит меня где здесь засада.
 --- ifmail v.2.15dev5.1
  * Origin: Golden Telecom (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор