Доброе время суток.

А подскажите пж, как сделать чтоб этот код отправлял данные клиенту в ответ на определенный порт. Сам больше а то когда клиент что нить примылает мне на порт 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: $!";

Спасибо Вам большое

• udp server,Square, 20:28 , 12-Июн-10
  • udp server,astashov, 20:34 , 12-Июн-10
    • udp server,elvenic, 22:04 , 12-Июн-10
      • udp server,astashov, 22:13 , 12-Июн-10

>Доброе время суток.
>
>А подскажите пж, как сделать чтоб этот код отправлял данные клиенту в
>ответ на определенный порт. Сам больше а то когда клиент что
>нить примылает мне на порт 6666, то сервак ему в ответ
>на (к примеру) 50603 отсылает. а надо чтоб на 6666 клиенту
>ответ кинул.

Очевидно необходимо открыть сокет на этот порт...

>>Доброе время суток.
>>
>>А подскажите пж, как сделать чтоб этот код отправлял данные клиенту в
>>ответ на определенный порт. Сам больше а то когда клиент что
>>нить примылает мне на порт 6666, то сервак ему в ответ
>>на (к примеру) 50603 отсылает. а надо чтоб на 6666 клиенту
>>ответ кинул.
>
>Очевидно необходимо открыть сокет на этот порт...

Т.е. только такой вариант?
Я про этот вариант с самого начала думал, но просто думал может можно как-то подменить локальный порт клиента. К примеру как нибудь через флаги. Сам просто ничего не нашел.

Вообщем подменить порт перед функцией send не получиться?

>[оверквотинг удален]
>>>ответ кинул.
>>
>>Очевидно необходимо открыть сокет на этот порт...
>
>Т.е. только такой вариант?
>Я про этот вариант с самого начала думал, но просто думал может
>можно как-то подменить локальный порт клиента. К примеру как нибудь через
>флаги. Сам просто ничего не нашел.
>
>Вообщем подменить порт перед функцией send не получиться?

Порт на клиенте где этот клиент ожидает ответа от сервера определяется в момент когда клиент открывает сокет для связи с сервером - в этот момент клиент может сказать bind() что бы привязать сокет к какому-нибудь определенному порту (напр. 6666). Если клиент не сказал bind(), то этот сокет перед посылкой сообщения серверу будет привазан системой к какому-нибудь произвольному свободному порту (напр. 50603). Когда сервер принял сообщение, это сообщение содержит 'обратный адрес', т.е IP адрес хоста клиента и порт где клиент ждет ответа - и это именно тот порт который привязан на хосте клиента к сокету в который клиент послал сообщение - если клиент говорил bind(), то это порт 6666, если нет - то это порт 50603.

Подменять порт перед функцией send() на сервере не имеет смысла вообще, поскольку клиент ждет ответа именно на порту который привязан к его сокету, и если сервер укажет другой порт, ответ уйдет в пустоту и клиент его не получит.

Итог: если для клиента важно получать ответы на определенном порту, он должен открыть сокет и привязать этот порт (напр. 6666) к этому сокету функцией bind() (кстати, в общем случае нет гарантии что этот порт не будет занят кем-то другим). А сервер, с его стороны, должен открыть новый сокет и свазаться (функция connect()) с хостом клиента указав в адресе клиента именно этот порт (6666) и писать ответ в этот сокет - а не писать тупо в сокет который ему вернула функция accept(). Тут возможны варианты и комбинации, но суть именно эта.

Детали (параметеры функций, struct sockaddr и проч.) читайте в манах, я деталей не помню (забываю сразу после использования :) )

Thank you,

    elvenic

спасибо.