Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw

Re: Win32 Nonblocking Sockets

by twerq (Deacon)
on Apr 20, 2001 at 22:13 UTC ( [id://74261]=note: print w/replies, xml ) Need Help??

in reply to Win32 Nonblocking Sockets

I could be way off, and have never developed in Perl for Windows, but if you want to try setting your open socket to non-blocking, you can try


. . . hopefully this is has been written to work properly on the windows platform.


Replies are listed 'Best First'.
(tye)Re: Win32 Nonblocking Sockets
by tye (Sage) on Apr 20, 2001 at 22:23 UTC

    That calls IO::Handle::blocking whose code (found under ext/IO/IO.xs of the Perl source code distribution) boils down to this:

    static int io_blocking(InputStream f, int block) { int RETVAL; if(!f) { errno = EBADF; return -1; } #if defined(HAS_FCNTL) /* ... */ #else return -1; #endif }
    and HAS_FCNTL isn't defined under Win32 so it just always return -1 under Win32.

    I should try to patch that. ):

    Anyway, it isn't much help right now.

            - tye (but my friends call me "Tye")
      Windows does have fcntl but doesn't include O_NONBLOCK (according to mingw's headers). However I have coded non blocking sockets in a cross platform program. I used ioctl like this
      int on = 1; int error = IOCTL(server_socket, FIONBIO, &on); if (error < 0) die("Couldn't set non-blocking");
      Note that IOCTL == ioctl under unix and == ioctlsocket under windows.

      I don't know whether this is useful directly from perl under windows or not but it could certainly go in the xs module.

      Non blocking sockets are OK under windows, but it is practically impossible to make anything else non blocking - you have to get into overlapped IO etc shudder!

Log In?

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://74261]
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others sharing their wisdom with the Monastery: (3)
As of 2024-06-15 09:49 GMT
Find Nodes?
    Voting Booth?

    No recent polls found

    erzuuli‥ 🛈The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.