VG
да не, судя по коду, можно
${*$sock}{'io_socket_peername'} = recv($sock, $_[1]='', $len, $flags);Size: a a a
2020 August 31
DE
ладно, надо тестовые клиенты написать и проверить что хня
VG
просто четырехаргументный send надо делать, вместо задания в конструкторе
DE
проблема именно в том что от сервера не приходит пакет с нового порта, хотя точно отправляется
VG
> вместо задания в конструкторе
VG
вообще, наследоваться от IO::Handle для UDP - ну такое
DE
пакеты гоняю на 127.0.0.1 если что
VG
ну так, если на UDP-сокет был сделан connect(), он уже больше ни с какого другого адреса не получит
VG
просто не надо так делать =)
DE
на чистом C принимает без проблем
VG
так не используй его, если не дает
практически штатных средств достаточно
while ($count && select($rout = $rin, undef, undef, 10.0)) {
$rtime = "";
$hispaddr = recv(SOCKET, $rtime, 4, 0) || die "recv: $!";
($port, $hisiaddr) = sockaddr_in($hispaddr);практически штатных средств достаточно
ну вот с чистого Си и переложение
DE
AP
мне кажется, кто-то не понимает целиком предложений, что ему говорят, только отдельные слова
DE
воспроизвел ситуацию, вот клиент http://b8ka.ru/uc.pl.txt который соединяется с сервером http://b8ka.ru/us.c.txt и не работает!
DE
а сишный клиент работает
DE
при чем тут send, от сервера ждем посылку
VG
facepalm.jpg
IA
Denis Erygin
при чем тут send, от сервера ждем посылку
Чтобы дождаться ответа, надо правильно ждать, а ещё до этого - правильно отправить запрос.
DE
facepalm.jpg
посмотри код, даже обычный send приходит от клиента, не в этом дело