Socket server : Socket « Network « 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 » Socket

Socket server

    



use IO::Socket;



$server = IO::Socket::INET->new

(

    LocalPort => 1116,

    Type      => SOCK_STREAM,

    Reuse     => 1,

    Listen    => 5 

) or die "Could not open port.\n";



while ($client = $server->accept()) {



    $line = <$client>;



    print $line;



}



close($server);

Related examples in the same category

1.	Time Server with Socket
2.	Using Socket to call a Perl CGI
3.	Perl Modules for Networking with Sockets
4.	Open a socket
5.	Post query to a CGI
6.	Query a Perl CGI
7.	Listen to a port
8.	Using regular expresion to validate an IP address
9.	Child handle and parent handle
10.	Daytime client, using symbolic host and service names
11.	Add a host, delete a host, add a user, delete a user, ping a host, list processes, list filesystems, lists hosts, and kill a process.
12.	A Perl TCP server without the Socket module.
13.	A Simple script to update your host/ip with dyndns.org service.

java2s.com | Contact Us | Privacy Policy

All other trademarks are property of their respective owners.