Help for this page

Select Code to Download


  1. or download this
    $peeraddr = $sock->recv($packet, $maxpacketsize);
# 2048 should work fine as maxpacketetsize
  2. or download this
    if(! defined $sock->connected)
  3. or download this
    use IO::Socket;
$p = IO::Socket::INET->new(PeerAddr => "1.1.1.1:7170", Proto => "udp")
   or die "socket: $!\n";
if ($p->connected) { print "connect ok\n"}
if ($p->write("foo")) { print "send ok\n"}
  4. or download this
    connect ok
send ok