grlemn
Novice
Feb 12, 2010, 9:50 AM
Post #3 of 3
(865 views)
|
|
Re: [FishMonger] Windows multiplexing
[In reply to]
|
Can't Post
|
|
That's my code i have problem:
<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;
</code>
==============================
<code>
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;
</code>
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.
|
MAIN
SEARCH
WHO'S 
LOG 