Network issue

[Lepi]

Hello

Please help...

I want to program a little client that sends something to a server, but
also reads an answer. What part of this code needs to be changed???

Also, is there a way to make a bidirectional communication, so if the
other side has something to say, my client can accept it without sending
a request??? How can I do that??

Thanks

use IO::Socket;
$adr=IO::Socket::INET->new(
Proto=>'tcp',
PeerAddr=>'localhost',
PeerPort=>'2332'
)
or die "Not good";

print("Input > ");
$in=<STDIN>;
print $adr $in;

 

[Rhesa Rozendaal]

Hello

Please help...

I want to program a little client that sends something to a server, but
also reads an answer. What part of this code needs to be changed???

Also, is there a way to make a bidirectional communication, so if the
other side has something to say, my client can accept it without sending
a request??? How can I do that??

Sockets are bidirectional.

Thanks

use IO::Socket;
$adr=IO::Socket::INET->new(
Proto=>'tcp',
PeerAddr=>'localhost',
PeerPort=>'2332'
)
or die "Not good";

print("Input > ");
$in=<STDIN>;
print $adr $in;

$output = <$adr>;
or
$output = $adr->readline();
etc.

Suggested reading:

perldoc IO::Socket::INET
perldoc perlipc
perldoc IO::Socket
perldoc Socket

Rhesa