What's more, accept is meaningless in the context of a UDP socket (it's packet-based, not connection-based). You never receive a connect request on a UDP socket...

All you need to do to make a UDP socket is bind it to the appropriate port, and sysread the packets from it. Maximum packet size is 64k or the size you specify to sysread, whichever is smaller. Untested, but try this: 

use strict;  
use IO::Socket;

my $socket=IO::Socket::INET->new(LocalAddr => 'localhost',
                                 LocalPort => 2224,
                                 Proto     => 'udp')
  or die "socket: $!";

while ((my $length=sysread($socket, my $buffer, 65536)) != 0)
  {
    die "sysread: $!" if (!defined($length));
    # $buffer contains the received packet
  }

[download]
From perusing the IO::Socket code, it looks like it'll do the right thing.

To send a packet, use this (NOTE: this uses the perl 5.6.0 form of syswrite. In previous versions, you need to supply a length argument): 

use strict;
use IO::Socket;

my $socket=IO::Socket::INET->new(PeerAddr => 'localhost',
                                 PeerPort => 2224,
                                 Proto     => 'udp')
  or die "socket: $!";

syswrite($socket, "Hello, there\n");

[download]

Andrew.

Update: Oops, should have mentioned this, but use recv instead of sysread if you want to know the source of your packets ;-) (sysread still works, though)

Update II: I'm really not on form - the while (sysread) stuff in the first example is probably bad perl - if sysread returns undef, you'll get a warning, *and* the die condition will be skipped. D'oh. Try this instead: 

my $length;
while (defined($length=sysread($socket, my $buffer, 65536)) && $length
+ != 0)
  { ... }
die "sysread: $!" if (!defined($length));

[download]
This shouldn't warn due to the short-circuit nature of &&...

In reply to Re: UDP server by ahunter
in thread UDP server by tiny

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.