広告
SOCKET コネクションの向こう側のパックされた aockaddr アドレスを返します。
#インターネットのSsockAddr $sockaddr = 'S n a4 x8'; $hersockaddr = getpeername(S); ($family, $port, $heraddr) = unpack($sockaddr,$hersockaddr);
https://www.7key.jp/program/perl/getpeername.html