|Problems? Is your data what you think it is?|
Re: UDP serverby ahunter (Monk)
|on Jul 11, 2000 at 21:39 UTC||Need Help??|
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:
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):
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:
This shouldn't warn due to the short-circuit nature of &&...