Re^2: IO::Socket::INET -- Jettero verses non-blocking in windows

I am apparently in way over my head...

I'm trying to just make a separate function for OSen without non-blocking sockets.

In my cool version, I'm doing this:

    my $msg  = "";
    while( my $portaddr = recv($this->{in}, $msg, 1024, 0) ) {
        my ($portno, $ipaddr) = sockaddr_in($portaddr);
        my $ip = inet_ntoa($ipaddr);

        push @msgs, [$ip, $this->_transform($msg)];
    }
[download]

It's intercepting UDP broadcasts, which I'm also new to, and I'm not sure where to get the ipaddr of the source using the vec/select while loop -- which is fascinating btw.

Comment on Re^2: IO::Socket::INET -- Jettero verses non-blocking in windows Download Code

Replies are listed 'Best First'.
Re^3: IO::Socket::INET -- Jettero verses non-blocking in windows by tachyon (Chancellor) on Jul 30, 2004 at 15:43 UTC
What vec() does is construct a bit vector, in this case related to the fileno of the client socket. Every filehandle on the OS has an actual file number. Consider: `print fileno(STDIN), $", fileno(STDOUT), $", fileno(STDERR); __DATA__ 0 1 2` [download] So STDIN is fileno 0, etc. When you open a file or a socket a unique fileno that identifies it is stored by the OS in the file table. So what the first vec is doing is generating a bitmask in $bits1 that represents that. What 4 arg select does is return values for handles that can be READ, WRITTEN and HAVE ERRORS. It waits the specified time and then returns. It returns the data in a bitmap type format. We use vec again to see if the bit that corresponds to the filehandle we are interested in has been set in the returned value. (vec returns true if it is set, false if not). I don't know what you mean about how you get the ip address of the source - it is there in the code and being printed? cheers tachyon	[reply] [d/l]
Re^4: IO::Socket::INET -- Jettero verses non-blocking in windows by jettero (Monsignor) on Jul 30, 2004 at 15:57 UTC
Your method really does work, so I'm closer. I just don't know how to find the sender IP. Thanks a lot BTW. But, what I was actually asking is about how to find the sender IP. Check out the recv() I posted above. UDP doesn't really connect, so the source IP on each packet can be different. recv() returns some packet header info from which I can get the ip addr of the sender. Sysread doesn't do that at all. And the worse part is, the perldoc page for select() tells me that mixing your vec/select call with recv() is stupid and I'll get burnt. So I'm not sure what to do ...	[reply]
Re^5: IO::Socket::INET -- Jettero verses non-blocking in windows by tachyon (Chancellor) on Jul 30, 2004 at 16:14 UTC
To get that info you need raw socket access. You can do it I suppose but you are getting into a fairly deep area. See this for some idea of how easy it isn't. You will note that even WinSock support for it is not a given. It depends on which flavour you are running. Probably the easiest workaround is to accept that the socket will block on win32. To get a non-blocking effect run two processes. The blocking UDP message acceptor process block waiting for data, as you have now. When it has something to say it says it. The other process listens effectively via a non blocking read. Ugly but it would work and is probably the easiest implementation. cheers tachyon	[reply]
Re^6: IO::Socket::INET -- Jettero verses non-blocking in windows by jettero (Monsignor) on Jul 30, 2004 at 16:24 UTC
Re^7: IO::Socket::INET -- Jettero verses non-blocking in windows by tachyon (Chancellor) on Jul 30, 2004 at 16:26 UTC