perl_IO::Socket模块简单实例

zhuyumu

　　socket的英文原义是“孔”或“插座”。作为4BDS UNIX的进程通信机制，取后一种意思。通常也称作"套接字"，用于描述IP地址和端口，是一个通信链的句柄。在Internet上的主机一般运行了多个服务软件，同时提供几种服务。每种服务都打开一个Socket，并绑定到一个端口上，不同的端口对应于不同的服务。Socket正如其英文原意那样，象一个多孔插座。一台主机犹如布满各种插座的房间，每个插座有一个编号，有的插座提供220伏交流电， 有的提供110伏交流电，有的则提供有线电视节目。 客户软件将插头插到不同编号的插座，就可以得到不同的服务。
　　下面这个是一个小例子：
　　服务器端：
　　#!/usr/bin/perl -w
　　use strict;
　　use IO::Socket;
　　my $server_port = 9999;
　　my $client;
　　my $server = IO::Socket::INET->new(LocalPort => $server_port,
　　Type      => SOCK_STREAM,
　　Reuse     => 1,
　　Listen    => 10) or die "Couldn't be a tcp server on port $server_port: $!\n";
　　while ( $client = $server->accept()) {
　　print "$client, it is ok\n";
　　}
　　close($server);
　　客户端：
　　#!/usr/bin/perl -w
　　use strict;
　　use IO::Socket;
　　my $remote_host = '192.168.199.129';
　　my $remote_port = 9999;
　　my $socket = IO::Socket::INET->new(PeerAddr  => $remote_host,
　　PeerPort  => $remote_port,
　　Proto     => "tcp",
　　Type      => SOCK_STREAM ) or die "Couldn't connect to $remote_host, $remote_port: $!\n";
　　print "$socket,\t I'm is client\n";
　　my $answer = ;
　　close($socket);
　　先执行服务器端，然后执行客户端，发现两台机器的9999都开了。
　　具体深入以后在研究