My knee-jerk guess is that he's trying to multiplex non-socket filehandles, like disk or console handles. Strawberry and ActivePerl's select() on Windows are built atop winsock, so they only multiplex sockets.

Cygwin and I think MingWin emulate select() differently, so they should work better.

Unless I guessed totally wrong, of course.

Multiplexing doesn't seem to work properly ...

Multiplexing what?

Do you have some code to demonstrate your problem?

It would be simpler to sockify STDIN. Create a socket pair, and have a thread dump STDIN into one end of the pair. The other end is used in lieu of STDIN in the main thread.

how can i do that?

How can he use pipes to his advance?

Here is my code:

---server---

use IO::Socket::INET;
use IO::Select;

 

$socket=new IO::Socket::INET->new(LocalPort=>2010,Proto=>'udp');
$select=IO::Select->new($socket,\*STDIN);

LOOP:
while(1)
{
 @readers=$select->can_read();
 foreach $ready (@readers)
 { 
  if($ready eq \*STDIN)
  {
   print "\n","Enter message to send to client : ";
  
   $msg_out=<STDIN>;
  
   $socket->send($msg_out);
  
   goto LOOP;
  }
  elsif($ready eq $socket)
  {
   $socket->recv($msg_in,100);
   print "\n","Peer>",$msg_in;
   goto LOOP;
  }
 }

}

exit 1;


---client---

use IO::Socket::INET;

use IO::Select;
 
$socket=new IO::Socket::INET->new(PeerPort=>2010,Proto=>'udp',PeerAddr
+=>'localhost');
$select=IO::Select->new($socket,\*STDIN);


LOOP:
while(1)
{
 @readers=$select->can_read();
 foreach $ready (@readers)
 { 
  if($ready eq \*STDIN)
  {
   print "Enter message to send to server : ";

   $msg_out=<STDIN>;
   
   
   $socket->send($msg_out);
  
  
   goto LOOP;
  }
  elsif($ready eq $socket)
  {
   $socket->recv($msg_in,100);
   print "\n","Peer>",$msg_in;
   goto LOOP;
  }
 }

}
exit 1;
[download]

STDIN is not a socket. You can only use select on sockets in Windows, as previously stated.

Even if you weren't on Windows, it would be defy the purpose of select to read until you got a newline, and it doesn't make sense to use buffered I/O and select on the same handle.

Do you mean problems with IO::select ? It blocks socket if there is greater than zero timeout.