in reply to Re^2: Multiplexing problem
in thread Multiplexing problem

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.

Replies are listed 'Best First'.
Re^4: Multiplexing problem
by Anonymous Monk on Feb 12, 2010 at 17:48 UTC
    Another code: 
    
use IO::Socket::INET;

use IO::Select;

syswrite(STDOUT,"----- Server Program -----\n");
 

$socket=new IO::Socket::INET->new(LocalPort=>1234,Proto=>'udp') or die
+ "socket() error: $!";

$select=IO::Select->new($socket);

LOOP:

while(1)

{

 if(@readers=$select->can_read(0.1))

 {
  $socket->recv($msg_in,128);

  syswrite(STDOUT,"\nPeer>$msg_in");


  }
 else
 {
  syswrite(STDOUT,"Enter message to send to server : ");

  sysread(STDIN,$msg_out,100);   
   
  send($socket,$msg_out,0,'localhost');
  
  goto LOOP;
 }

}

exit 1;

    [download]
    ============================== 
    
use IO::Socket::INET;

use IO::Select;


syswrite(STDOUT,"----- Client Program -----\n");
 

$socket=new IO::Socket::INET->new(PeerPort=>1234,Proto=>'udp',PeerAddr
+=>'localhost') or die "socket() error: $!";

$select=IO::Select->new($socket);



LOOP:

while(1)

{

 if(@readers=$select->can_read(0.1))

 {
  $socket->recv($msg_in,128);

  syswrite(STDOUT,"\nPeer>$msg_in");


  }
 else
 {
  syswrite(STDOUT,"Enter message to send to server : ");

  sysread(STDIN,$msg_out,100);   
   
  $socket->send($msg_out);
  
  goto LOOP;
 }

}

exit 1;

    [download]
    But when i send messages from client the server doesn't print the data on screen but in order to print it i have to change line(newline).It acts like it buffers the data.I would appreciate any ideas.
[reply]
[d/l]
[select]
      new IO::Socket::INET->new(...)

      [download]
      should simply be 
      IO::Socket::INET->new(...)

      [download]

      If you have a buffering issue, just autoflush. For STDOUT, the following will do: 

      $|=1;

      [download]

      Your real problem is that sysread(STDIN,$msg_out,100); blocks.

      I started writing a solution. But honestly, it would be much simpler to avoid select() and use threads.

[reply]
[d/l]
[select]
      I'll get back to you. Very busy right now
[reply]
        take your time
[reply]

In Section Seekers of Perl Wisdom