Size: a a a

2020 August 31

SZ

Sergey Zhmylove in Modern::Perl
Ты можешь конкретно описать задачу, текстом и по шагам. Без кода. И сразу всю полностью, чтобы не бегать по сообщениям.
А мы тебе напишем код, в котором не будет ошибок.
источник

DE

Denis Erygin in Modern::Perl
так где трекается конкретное место?
источник

DE

Denis Erygin in Modern::Perl
я и так это предположил в самом начале
источник

DE

Denis Erygin in Modern::Perl
Sergey Zhmylove
Ты можешь конкретно описать задачу, текстом и по шагам. Без кода. И сразу всю полностью, чтобы не бегать по сообщениям.
А мы тебе напишем код, в котором не будет ошибок.
задача чтобы с IO:Socket работало также как и с просто Socket
источник

SZ

Sergey Zhmylove in Modern::Perl
Denis Erygin
задача чтобы с IO:Socket работало также как и с просто Socket
источник

SZ

Sergey Zhmylove in Modern::Perl
Denis Erygin
задача чтобы с IO:Socket работало также как и с просто Socket
IO::Socket делает use Socket. Если у тебя есть рабочее решение на Socket, зачем тебе IO::Socket?
источник

DE

Denis Erygin in Modern::Perl
чтобы разобраться и не наступать на грабли потом
источник

SZ

Sergey Zhmylove in Modern::Perl
На грабли лучше не наступать :р
источник

DE

Denis Erygin in Modern::Perl
http://b8ka.ru/uc2.pl.txt - это работает, а это нет http://b8ka.ru/uc.pl.txt Почему так? вот те задача
источник

SZ

Sergey Zhmylove in Modern::Perl
Denis Erygin
http://b8ka.ru/uc2.pl.txt - это работает, а это нет http://b8ka.ru/uc.pl.txt Почему так? вот те задача
Я тебе уже писал: потому что io::socket::inet написан так, чтобы хранить данные пира в объекте
источник

DE

Denis Erygin in Modern::Perl
догадки?
источник

DE

Denis Erygin in Modern::Perl
ну нет там в коде такого
источник

SZ

Sergey Zhmylove in Modern::Perl
Denis Erygin
ну нет там в коде такого
Есть
источник

DE

Denis Erygin in Modern::Perl
ну пусть хранит, как это влияет на тест?
источник

SZ

Sergey Zhmylove in Modern::Perl
Denis Erygin
ну пусть хранит, как это влияет на тест?
А я упорно не понимаю твой тест.
Нарисуй мне диаграмму последовательностей для тесткейса и скажи, тебе сервер или клиент из нее нужно реализовать. И я напишу
источник

DE

Denis Erygin in Modern::Perl
тесты простые и так
источник

b

basiliscos in Modern::Perl
Denis Erygin
догадки?
не уверен, но возможно в 1-м случае юзается sendto, а во 2-м - send. Попробуй запусти под strace

strace -f -e trace=network perl my-script.pl


например, и посмотри отличия
источник

DE

Denis Erygin in Modern::Perl
вот если бы кто указал точное место в коде IO:Socket, где фильтруются пакеты по адресу, вот и вся задача
источник

DE

Denis Erygin in Modern::Perl
basiliscos
не уверен, но возможно в 1-м случае юзается sendto, а во 2-м - send. Попробуй запусти под strace

strace -f -e trace=network perl my-script.pl


например, и посмотри отличия
strace -f -e trace=network perl uc.pl
socket(AF_INET, SOCK_DGRAM, IPPROTO_UDP) = 3
connect(3, {sa_family=AF_INET, sin_port=htons(26000), sin_addr=inet_addr("127.0.0.1")}, 16) = 0
getpeername(3, {sa_family=AF_INET, sin_port=htons(26000), sin_addr=inet_addr("127.0.0.1")}, [256->16]) = 0
getpeername(3, {sa_family=AF_INET, sin_port=htons(26000), sin_addr=inet_addr("127.0.0.1")}, [256->16]) = 0
sendto(3, "Hello!", 6, 0, NULL, 0)      = 6
Try recv
источник

DE

Denis Erygin in Modern::Perl
IO::Socket делает connect
источник