TCP inet server : TCP « Network « Perl

Home
Perl
1.Array
2.CGI
3.Class
4.Data Type
5.Database
6.File
7.GUI
8.Hash
9.Language Basics
10.Network
11.Regular Expression
12.Report
13.Statement
14.String
15.Subroutine
16.System Functions
17.Win32
18.XML
Perl » Network » TCP 




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; $| = 1select 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.
java2s.com  | Contact Us | Privacy Policy
Copyright 2009 - 12 Demo Source and Support. All rights reserved.
All other trademarks are property of their respective owners.