18、Perl 网络编程：套接字通信与多客户端处理

Perl 网络编程：套接字通信与多客户端处理

1. Socket API 与 IO::Socket 模块

在网络编程中，Perl 提供了对套接字的原生支持，同时还有一个名为 Socket 的模块来简化原生套接字调用的一些复杂操作。不过，由于原生调用涉及大量选项，而大多数应用程序使用的是一套相当标准的选项，因此我们通常会使用基于 Socket 构建的 IO::Socket 模块，它使用起来更加方便。下面我们将使用这个模块来构建一个发送和接收程序。

1.1 接收端程序

接收端和发送端都需要请求模块创建套接字，就像向电话公司申请电话号码和实体电话一样。套接字和电话一样，是双向的端点，一旦建立连接，双方都可以发送和接收数据，但前提是两个程序之间要对通信方向达成共识。

由于只有接收端需要有一个众所周知的地址，我们可以按如下方式创建一个接收套接字：

use IO::Socket;
$sock = new IO::Socket::INET (LocalHost => 'goldengate',
                              LocalPort => 1200,
                              Proto     => 'tcp',
                              Listen    => 5,
                              Reuse     => 1,