in reply to IO Socket - Detect inbound IP
As Ikegami pointed out, the easy way is peerhost. Try it like this...
while(<$new_sock>) { print $new_sock->peerhost, " said $_"; }
In Section
Seekers of Perl Wisdom
in reply to IO Socket - Detect inbound IP
As Ikegami pointed out, the easy way is peerhost. Try it like this...
while(<$new_sock>) { print $new_sock->peerhost, " said $_"; }