Path: utzoo!utgpu!news-server.csri.toronto.edu!bonnie.concordia.ca!uunet!convex!usenet
From: tchrist@convex.COM (Tom Christiansen)
Newsgroups: comp.lang.perl
Subject: Re: using sendto and recvfrom in perl
Keywords: syscall sendto recvfrom ipc sockets
Message-ID: <1991Jun16.045207.6561@convex.com>
Date: 16 Jun 91 04:52:07 GMT
References: <1934@uqcspe.cs.uq.oz.au>
Sender: usenet@convex.com (news access account)
Reply-To: tchrist@convex.COM (Tom Christiansen)
Organization: CONVEX Software Development, Richardson, TX
Lines: 15
Nntp-Posting-Host: concave.convex.com

From the keyboard of tonyg@cs.uq.oz.au:
:I want to use the system calls "recvfrom" and "sendto" in a perl script.
:Has anyone put some nice wrappers around these system calls?
:
:My current version appears to be a *bit* buggy.
:
:This is under SunOS 4.1 and using perl version 4.0 patchlevel 10
:
:here's my code - ignore the fact that I'm not returning any data as yet...

Use send for sendto: just add another parameter.  Your syscall for recvfrom
looks a little questionable on the $from -- seems like an odd way to make
a sockaddr.  I haven't looked too hard though.  

--tom