$Var = unpack "N"; inet_ntoa($var); Bad arg length for Socket::inet_ntoa, length is

Question

Modern::Perl

Vyacheslav Olkhovchenkov

$Var = unpack "N"; inet_ntoa($var); Bad arg length for Socket::inet_ntoa, length is

8, should be 4 at

а как же тогда надо?

#perl #programming #russian

0

08.06.2024

6 ответов

39 просмотров

Vadim Goncharov

не унпакать вовсе адрес, он должен быть строкой из 4 байт use Socket qw(inet_ntoa); my $peername = recv $perlfh_udp4, my $pkt, 1500, 0); my ($port, $addr) = AnyEvent::Socket::unpack_sockaddr $peername; AE::log info => "received from %s:%d", inet_ntoa($addr), $port;

0

5 месяцев назад

Vyacheslav Olkhovchenkov Автор вопроса

Warstone
https://perlbanjo.com/b877423523

ну вопрос-то про unpack был. т.е. ответ -- a4?

0

5 месяцев назад

Vyacheslav Olkhovchenkov Автор вопроса

Vadim Goncharov
не унпакать вовсе адрес, он должен быть строкой из...

у меня исходник -- бинарный файл.

0

5 месяцев назад