HANDLING MULTIPLE CLIENTS<\/p>\n
Name of Student<\/p>\n
Name of Institution<\/p>\n
\u00a0<\/p>\n
\u00a0<\/p>\n
Date of submission<\/p>\n
Part 2<\/p>\n
Write a program to implement a TCP concurrent server with the following functionalities:<\/p>\n
\u00a0<\/p>\n
When the client starts up, it should display a menu with the following service choices: <\/p>\n
Reversal of the string <\/p>\n
Count of words given the separator <\/p>\n
Count of characters <\/p>\n
Check for palindrome<\/p>\n
#!\/usr\/bin\/Perl<\/p>\n
open {CHOICES, “choices”} or die “Can’t open choices: $!n”;<\/p>\n
while {$line = <reversal of the string,count of words given the operator,count of characters,check for palindrome>} [<\/p>\n
{$menu, $choices} = split{\/ \/, $line};<\/p>\n
$choices[$menu ] .= $choices. ” “;<\/p>\n
]<\/p>\n
Provide the required functionality as a switch at the time of client invocation and convey it to the server as a part of the protocol by sending a message.<\/p>\n
When the client has read from the screen what functions are able to be performed, he then sends a message to the server with his response on the choice desired (check for palindrome). The message is displayed as this;<\/p>\n
#!\/usr\/bin\/Perl<\/p>\n
$check for palindrome;<\/p>\n
print “$menu: $choice{$menu}tcheck for palindrome: $check for palindromen”;<\/p>\n
]<\/p>\n
Once your program is done and running, posts your response that includes the following:<\/p>\n
\u00a0<\/p>\n
Outline of the method of invoking your server and client programs<\/p>\n
On the server;<\/p>\n
$local = IO:::Socket:::INET->new{ Proto => ‘tcp’ LocalAddress => ‘localhost:8191’, Reuse => 1 } or fail “$!”;$local->listen{};$local->autoflush{1}; <\/p>\n
print “At your service. Waiting…n”;my $address; while {$address = $local->accept} } [ print “Linked from: “, $address->peerhost{}; print ” Port: “, $address->peerport{}, “n”; my $result; while {<$address>} [ last if m\/^end\/gi; print “Received: $_”; print $address $_; $result += $_; ] chomp; if {m\/^end\/gi} [ <\/p>\n
my $send = “result=$result”; print $address “$sendn”; print “Result: $sendn”; ] print “Locked connectionn”; <\/p>\n
lock $address; print “At your service. Waiting…n”; ]<\/p>\n
On the client;<\/p>\n
$remote = IO:::Socket:::INET->new{ Proto => ‘tcp’, PeerAddress=> ‘localhost’, PeerPort=> “8191”, Reuse => 1, } or fail “$!”;print “Linked to “, $remote->peerhost, ” on port: “, $remote->peerport, “n”;$remote->autoflush{1}; while {<>} [ print $remote $_; last if m\/^end\/gi; my $line = <$remote>; if {$line ne $_} [ print “Error in sending outputn”; exit; ]]my $res = <$remote>; $res =~ m\/result={d*}\/gi; print “Result: $1n”; print “Client terminatedn”; lock $remote<\/p>\n
The server and client window screenshots for a sample service selected by the client <\/p>\n
(***************)<\/p>\n
The source code for the programs is 8191<\/p>\n","protected":false},"excerpt":{"rendered":"
HANDLING MULTIPLE CLIENTS Name of Student Name of Institution \u00a0 \u00a0 Date of submission Part 2 Write a program to<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[],"tags":[],"class_list":["post-37018","post","type-post","status-publish","format-standard","hentry"],"yoast_head":"\n