********************************************
06-June-2015
Requirements beore going to this article:
i)Basic idea of socket and its use
ii)Usage of Perl modules
********************************************
Generally Socket configuration consists of..
Creating Socket
Bind it to port
Client Connection Establishment
##Related library is Socket INET (i.e. Socket::INET)
Below is the skeleton code..
where XXX needs values with repect to local configuration.
socket = new IO::Socket::INET (
LocalHost => 'XXX',
LocalPort => 'XXXX',
Proto => 'tcp',
Listen => 5, #5 for tcp, varies based on configuration
Reuse => 1
) or die "error in creation of scket: $! ”;
## repeat a infinite loop till the connection is success full something like
while(1)
{
$client_soc = $socket->accept();
#to fetch host
$peer_address = $client_sock->peerhost();
#to fetch port num
$peer_port = $client_sock->peerport();
#this is end of the connection
$data = “data 4m Server”;
print $client_sock “$data\n”;
$data = <$client_socket>;
print “ $data is received from clinet s\n”;
}
#finally end of the connection by
$socket->close();
