Телеграмм чат группы modernperl страница 8178

Size: a a a

Modern::Perl

387 membersпожаловаться на группу

2020 August 31

Denis Erygin in Modern::Perl

Вот рабочий код:

источник

22:27пожаловаться #1

Denis Erygin in Modern::Perl

strace -f -e trace=network perl uc2.pl
socket(AF_INET, SOCK_DGRAM, IPPROTO_UDP) = 3
sendto(3, "Hello!", 6, 0, {sa_family=AF_INET, sin_port=htons(26000), sin_addr=inet_addr("127.0.0.1")}, 16) = 6
Try recv
recvfrom(3, "Hello from server", 8192, 0, {sa_family=AF_INET, sin_port=htons(26001), sin_addr=inet_addr("127.0.0.1")}, [4096->16]) = 17
:26001
Hello from server

источник

22:27пожаловаться #2

basiliscos in Modern::Perl

Denis Erygin

IO::Socket делает connect

ну вот и ответ. Кури доку по I:S почему он так делает, и что делать чтобы он так не делал )

источник

22:30пожаловаться #3

Denis Erygin in Modern::Perl

basiliscos

ну вот и ответ. Кури доку по I:S почему он так делает, и что делать чтобы он так не делал )

ну вот так бы сразу ;)

источник

22:31пожаловаться #4

basiliscos in Modern::Perl

подозреваю что в контсрукторе не надо указывать конечный хост/порт

источник

22:37пожаловаться #5

Denis Erygin in Modern::Perl

basiliscos

ну вот и ответ. Кури доку по I:S почему он так делает, и что делать чтобы он так не делал )

походу после connect можно вызвать sendto без адреса - типа упростили

источник

22:37пожаловаться #6

basiliscos in Modern::Perl

да, но это не то, что тебе надо

источник

22:38пожаловаться #7

basiliscos in Modern::Perl

с других адресов не получишь

источник

22:38пожаловаться #8

Denis Erygin in Modern::Perl

basiliscos

да, но это не то, что тебе надо

ну это обьясняет интерфейс send без параметров адреса

источник

22:38пожаловаться #9

Denis Erygin in Modern::Perl

анонимный сокет нужно создать $sock = IO::Socket::INET->new(Proto => 'udp') и вызвать send($sock, $MSG, 0, $portaddr) Хотя в доке написаны примеры только с Peer

источник

22:42пожаловаться #10

Sergey Zhmylove in Modern::Perl

Denis Erygin

тесты простые и так

Там кривой, по твоим словам, код (который, как ты говоришь, не работает).
Дашь диаграммы -- напишу код.

А если тебе нужно ткнуть, как оно это делает: вот:
В этой строке написано, почему «анонимный» сокет работает.
https://metacpan.org/source/TODDR/IO-1.42/lib/IO/Socket/INET.pm#L221

источник

22:53пожаловаться #11

Denis Erygin in Modern::Perl

теперь и я могу connect загрепать по сырцам ;)

источник

22:57пожаловаться #12

Denis Erygin in Modern::Perl

видимо IO::Socket::INET писали для tcp, потом сбоку приделали/подогнали udp

источник

22:59пожаловаться #13

Sergey Zhmylove in Modern::Perl

Denis Erygin