b
((struct sockaddr_in *)addr)->sin_port = htons(port);здесь подготовка твоего (локального/серверного) SA, а не клиентского (peer).
Size: a a a
b
((struct sockaddr_in *)addr)->sin_port = htons(port);здесь подготовка твоего (локального/серверного) SA, а не клиентского (peer).
DE
b
b
b
DE
VG
DE
DE
VG
VG
DE
VG
VG
DE
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
VG
VG
DE