проблема с модулем соккет (перл)

  • Автор темы zhito
  • Дата начала
Статус
Закрыто для дальнейших ответов.
Z

zhito

Гость
#1
такая вот програмка на перле:
use Socket;
socket(SERVER, SOL_SOCKET, SO_REUSEADDR,1);
$server_port = "8002";
$my_addr = SockAddr_in($server_port, INADDR_ANY);
bind(SERVER, $my_addr) or die "cant bind to port $server_port : $!\n";
listen(SERVER, SOMAXCONN) or die "cant listen to port $server_port : $!\n";
while (accept(CLIENT, SERVER)){

}
close(SERVER);

выдает такую ошибку:
Undefined subroutine &main::SockAddr_in called at server.bat line 19.

странно - модуль соккет то установлен с этой функцией.
или дело в чем то другом?
 
V

Vovochka

Гость
#2
Документация в перле - великая вещь!
и там НЕТ (!!!) никакой функции SockAddr_in, а есть sockaddr_in.

А вообще надо отказваться от Socket и переходить на IO::Socket
Объектно-Ориентированный подход ;)
 
Статус
Закрыто для дальнейших ответов.