Two way Client Server Network Communication

Perl Two Way Client Communication

The below code written in Perl is used to create a two way client server network communication through the IO socket INET which is used for read and receive the information. The Peer Address, Peer Port Number, Protocol number and type of stream is used to set the two way client. Here in the below function the function fork is used to create the child process from the parent process; which will be the replica of the parent function and the only variation between these two is PID and PPID of the process

Perl Code to Two Way Client


use IO::Socket;

$socket = IO::Socket::INET->new
(
PeerAddr => 'server.com',
PeerPort => 1247,
Proto => "tcp",
Type => SOCK_STREAM
) or die "Could not create client.
";

unless (defined($child_pid = fork())) {die "Can not fork.
"};

if ($child_pid) {
while ($line = <>) {
print $socket $line;
}
} else {
while($line = <$socket>) {
print "Read this from server: $line";
}
}


Related Topic List of Server Ports and their Assigned Numbers
Servlet Interview Questions & Answers Part 2
What are all the Types of Networks and their Scales, Scopes and Purposes
What are all the Important Elements of SSH
List of Mysql Error Code and Description

nScraps.com 2011   Privacy Policy  Terms of Service  Feedback