Исходное сообщение
"udp server" Отправлено astashov, 12-Июн-10 19:13
Доброе время суток. А подскажите пж, как сделать чтоб этот код отправлял данные клиенту в ответ на определенный порт. Сам больше а то когда клиент что нить примылает мне на порт 6666, то сервак ему в ответ на (к примеру) 50603 отсылает. а надо чтоб на 6666 клиенту ответ кинул. #!/usr/bin/perl -w use strict; use IO::Socket; my($sock, $oldmsg, $newmsg, $hisaddr, $hishost, $MAXLEN, $PORTNO); $MAXLEN = 10; $PORTNO = 6666; $sock = IO::Socket::INET->new( LocalPort => $PORTNO, Proto => 'udp' ) or die "socket: $@";     print "Awaiting UDP messages on port $PORTNO\n"; $sock->autoflush(1); $oldmsg = "This is the starting message.";      while ($sock->recv($newmsg, $MAXLEN)) {     my($port, $ipaddr) = sockaddr_in($sock->peername);     print "Client said ``$newmsg''\n";         $sock->send($oldmsg);     $oldmsg = "$newmsg"; } die "recv: $!"; Спасибо Вам большое