Perl 教程 之 Perl Socket 编程 2
Perl Socket 编程
Socket又称"套接字"，应用程序通常通过"套接字"向网络发出请求或者应答网络请求，使主机间或者一台计算机上的进程间可以通讯。
bind() 函数
使用 bind() 为套接字分配一个地址：
bind( SOCKET, ADDRESS );
SOCKET 一个socket的描述符。 ADDRESS 是 socket 地址 ( TCP/IP ) 包含了三个元素:
地址簇 (TCP/IP, 是 AF_INET, 在你系统上可能是 2)
端口号 (例如 21)
网络地址 (例如 10.12.12.168)
使用socket()创建套接字后，只赋予其所使用的协议，并未分配地址。在接受其它主机的连接前，必须先调用bind()为套接字分配一个地址。
简单实例如下：
use Socket # 定义了 PF_INET 和 SOCK_STREAM
$port = 12345; # 监听的端口
$server_ip_address = "10.12.12.168";
bind( SOCKET, pack_sockaddr_in($port, inet_aton($server_ip_address)))
or die "无法绑定端口! \n";
or die 在绑定地址失败后执行。
通过设置 setsockopt() 可选项 SO_REUSEADDR 设置端口可立即重复使用。
pack_sockaddr_in() 函数将地址转换为二进制格式。
