Simple TCP/IP server/client - help!

[fredszky]

Hello

I am very new to perl, however i managed to make this server/client work with udp, now i would like to do the same thing but with TCP/IP, what must i do?

Server:

 #!perl -w
# Server Program
use IO::Socket::INET;
print ">> Server Program <<\n";
 
# Create a new socket
$MySocket=new IO::Socket::INET->new(
    LocalPort=>1234,
    Proto=>'udp'
);
 
 
# Keep receiving messages from client
$def_msg="\nReceiving message from client.....\n";
$sum=0;
 
while(1)
{
        $MySocket->recv($number,128);
        $sum=$sum+$number;
        $MySocket->send($sum);
 
    if($number ne '0')
    {
        print "\nReceived message '", $number,"'\n";
 
    }
    # If client message is empty exit
    else
    {
        print "Cilent has exited!";
        $MySocket->send($number);
        exit 1;
    }
}

Client:

#!perl -w
# Client Program
use IO::Socket::INET;
print ">> Client Program <<";
 
# Create a new socket
$MySocket=new IO::Socket::INET->new(
    PeerPort=>1234,
    Proto=>'udp',
    PeerAddr=>'localhost'
    );
 
# Send messages
$def_msg="client: ";
print "\n",$def_msg;
while($msg=<STDIN>)
{
    chomp $msg;
    if($msg ne '0')
    {
 
       if(print $MySocket($msg))
        {
            print "";
        }
        if($MySocket->recv($text,128))
        {
            print "\server: '", $text,"'\n";
            print $def_msg;
        }
    }
    else
    {
        # Send an empty message to server and exit
        $MySocket->send('0');
        exit 1;
    }
}
 
 
 

[KevinADC]

Did you try changing the protocol?

Proto=>'udp'

[Icecrack]

First Off in the Client script on line 28.

print "\server: '", $text,"'\n";
 

Should be:

print "Server: '", $text,"'\n";
 

now for server code you don't need the var or line of:

$def_msg="\nReceiving message from client.....\n";
 

if you want to use it add

print $def_msg;

in between the while and if statement.