
zak100
User
Jul 30, 2014, 10:26 AM
Post #1 of 1
(1072 views)
|
Adding 2 numbers in a Multiclient environment
|
Can't Post
|
|
Hi, I want to add two numbers. I have multiple clients but one server. The problem is that if 'client 1' sends 1 and 'client 2' sends 3, server prints 4. I want that server should wait for 2 numbers from each client and then print the sum. I have used 'fork' but its not solving the problem. Server Code
#!C:/Perl64/bin/perl.exe use IO::Socket::INET; $server=IO::Socket::INET->new(LocalPort=>'5465',Proto=>'UDP'); $pid = fork ( ); if ($pid == 0) { while(1) { $server->recv($num1,1024); print("\nnum1=", $num1); $server->recv($num2,1024); print("\nnum2=", $num2); print ("\nSum=" , $num1 + $num2 + "\n"); $|++; } } Client Code
#!C:/Perl64/bin/perl.exe use IO::Socket::INET; while(1) { $client=IO::Socket::INET->new(PeerPort=>'5465',Proto=>'UDP', PeerAddr=>'127.0.0.1'); print("Enter the first number\n"); $Num1=<STDIN>; $client->send($Num1); print("Enter the second number\n"); $Num1=<STDIN>; $client->send($Num1); } Please guide me. Zulfi.
|