Help for this page

Select Code to Download


  1. or download this
    use Socket;
#=================================================================
...
print STDERR "DEBUG, var is $var\n";
$peer_addr = inet_ntoa($var);
print "DEBUG, $peer_addr";
  2. or download this
    DEBUG, var is a0a0a01 
DEBUG, var is 168430081
Bad arg length for Socket::inet_ntoa, length is 9, should be 4