Socket answer : Server « 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 » Server

Socket answer

    

use IO::Socket;



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

(

    PeerAddr => 'yourserver.com',

    PeerPort => 1116,

    Proto    => "tcp",

    Type     => SOCK_STREAM

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



$answer = <$socket>;



print $answer;



close($socket);

Related examples in the same category

1.	Two way server
2.	Time server
3.	The server and the client are on the same machine
4.	Simple server
5.	Socket pair
6.	Socket server waiting for clients
7.	Read from server
8.	Send data from client to server
9.	Forking Servers

java2s.com | Contact Us | Privacy Policy

All other trademarks are property of their respective owners.