Re^4: IO Socket - Detect inbound IP

here it is.

my ($new_sock, $client_addr) = $sock->accept();
my $peerhost = $sock->peeraddr();
my $addr = inet_ntoa($peerhost);
print "$addr\n";
print $client_addr\n";
 while(<$new_sock>) {
 print $_;
 }
 close($sock);
[download]

Comment on Re^4: IO Socket - Detect inbound IP Download Code

Replies are listed 'Best First'.
Re^5: IO Socket - Detect inbound IP by ikegami (Patriarch) on Jan 25, 2011 at 22:17 UTC
$sock isn't connected to anything. That's why you're getting `Use of uninitialized value in subroutine entry Bad arg length for Socket::inet_ntoa, length is 0, should be 4` [download] `$!` contains the following, but you might not have known that `peeraddr` sets it on error. `Transport endpoint is not connected` [download] You want to know to whom $new_sock is connected.	[reply] [d/l] [select]