TCP inet server : TCP « Network « Perl





TCP inet server

    

#!/usr/bin/perl 
use strict;
use warnings;
use Socket;

my $proto = getprotobyname('tcp');
my $port = 4444;

my $servaddr = sockaddr_in($port, INADDR_ANY);

socket SERVER, PF_INET, SOCK_STREAM, $proto or die "Unable to create socket: $!";

bind SERVER, $servaddr or die "Unable to bind: $!";

listen SERVER, 10;

print "Server running on port $port...\n";
while (accept CONNECTION, SERVER) {
    select CONNECTION; $| = 1; select STDOUT;
    print "Client connected at ", scalar(localtime), "\n";
    print CONNECTION "You're connected to the server!\n";
    while (<CONNECTION>) {
        print "Client says: $_\n";
    }
    close CONNECTION;
    print "Client disconnected\n";
}

   
    
    
    
  










Related examples in the same category

1.TCP client
2.TCP client using Socket module.
3.TCP server
4.tcp inet client
5.Sample TCP client without the Socket module.
6.Sample TCP client.
7.Simple TCP Clients
8.Example of a Perl TCP server using Socket module.