https://www.opennet.ru/openforum/vsluhforumID9/8771.html Доброе время суток.<br><br>А подскажите пж, как сделать чтоб этот код отправлял данные клиенту в ответ на определенный порт. Сам больше а то когда клиент что нить примылает мне на порт 6666, то сервак ему в ответ на (к примеру) 50603 отсылает. а надо чтоб на 6666 клиенту ответ кинул.<br><br><br>#!/usr/bin/perl -w<br>use strict;<br>use IO::Socket;<br>my($sock, $oldmsg, $newmsg, $hisaddr, $hishost, $MAXLEN, $PORTNO);<br>$MAXLEN = 10;<br>$PORTNO = 6666;<br><br>$sock = IO::Socket::INET-&gt;new(<br>LocalPort =&gt; $PORTNO,<br>Proto =&gt; 'udp'<br>) or die "socket: $@";<br> print "Awaiting UDP messages on port $PORTNO\n";<br><br>$sock-&gt;autoflush(1);<br><br>$oldmsg = "This is the starting message.";<br> <br>while ($sock-&gt;recv($newmsg, $MAXLEN)) {<br> my($port, $ipaddr) = sockaddr_in($sock-&gt;peername);<br> print "Client said ``$newmsg''\n"; <br> $sock-&gt;send($oldmsg);<br> $oldmsg = "$newmsg";<br>} <br>die "recv: $!";<br><br>Спасибо Вам большое<br><br> https://www.opennet.ru/openforum/vsluhforumID9/8771.html#4 Sat, 12 Jun 2010 18:13:02 GMT спасибо.<br><br> https://www.opennet.ru/openforum/vsluhforumID9/8771.html#3 Sat, 12 Jun 2010 18:04:29 GMT &gt;[оверквотинг удален]<br>&gt;&gt;&gt;ответ кинул. <br>&gt;&gt;<br>&gt;&gt;Очевидно необходимо открыть сокет на этот порт... <br>&gt;<br>&gt;Т.е. только такой вариант? <br>&gt;Я про этот вариант с самого начала думал, но просто думал может <br>&gt;можно как-то подменить локальный порт клиента. К примеру как нибудь через <br>&gt;флаги. Сам просто ничего не нашел. <br>&gt;<br>&gt;Вообщем подменить порт перед функцией send не получиться? <br><br>Порт на клиенте где этот клиент ожидает ответа от сервера определяется в момент когда клиент открывает сокет для связи с сервером - в этот момент клиент может сказать bind() что бы привязать сокет к какому-нибудь определенному порту (напр. 6666). Если клиент не сказал bind(), то этот сокет перед посылкой сообщения серверу будет привазан системой к какому-нибудь произвольному свободному порту (напр. 50603). Когда сервер принял сообщение, это сообщение содержит 'обратный адрес', т.е IP адрес хоста клиента и порт где клиент ждет ответа - и это именно тот порт который привязан на хосте клиента к сокету в который клиент послал сообщение - е https://www.opennet.ru/openforum/vsluhforumID9/8771.html#2 Sat, 12 Jun 2010 16:34:24 GMT &gt;&gt;Доброе время суток. <br>&gt;&gt;<br>&gt;&gt;А подскажите пж, как сделать чтоб этот код отправлял данные клиенту в <br>&gt;&gt;ответ на определенный порт. Сам больше а то когда клиент что <br>&gt;&gt;нить примылает мне на порт 6666, то сервак ему в ответ <br>&gt;&gt;на (к примеру) 50603 отсылает. а надо чтоб на 6666 клиенту <br>&gt;&gt;ответ кинул. <br>&gt;<br>&gt;Очевидно необходимо открыть сокет на этот порт... <br><br>Т.е. только такой вариант?<br>Я про этот вариант с самого начала думал, но просто думал может можно как-то подменить локальный порт клиента. К примеру как нибудь через флаги. Сам просто ничего не нашел.<br><br>Вообщем подменить порт перед функцией send не получиться?<br> https://www.opennet.ru/openforum/vsluhforumID9/8771.html#1 Sat, 12 Jun 2010 16:28:24 GMT &gt;Доброе время суток. <br>&gt;<br>&gt;А подскажите пж, как сделать чтоб этот код отправлял данные клиенту в <br>&gt;ответ на определенный порт. Сам больше а то когда клиент что <br>&gt;нить примылает мне на порт 6666, то сервак ему в ответ <br>&gt;на (к примеру) 50603 отсылает. а надо чтоб на 6666 клиенту <br>&gt;ответ кинул. <br><br>Очевидно необходимо открыть сокет на этот порт...<br>