Perl 教程 之 Perl Socket 编程 6
Perl Socket 编程
Socket又称"套接字"，应用程序通常通过"套接字"向网络发出请求或者应答网络请求，使主机间或者一台计算机上的进程间可以通讯。
完整实例
接下来我们通过一个完整实例来了解下所有 socket 函数的应用：
服务端 server.pl 代码：
实例
!/usr/bin/perl -w
Filename : server.pl
use strict;
use Socket;
使用端口 7890 作为默认值
my $port = shift || 7890;
my $proto = getprotobyname('tcp');
my $server = "localhost"; # 设置本地地址
创建 socket, 端口可重复使用，创建多个连接
socket(SOCKET, PF_INET, SOCK_STREAM, $proto)
or die "无法打开 socket $!\n";
setsockopt(SOCKET, SOL_SOCKET, SO_REUSEADDR, 1)
or die "无法设置 SO_REUSEADDR $!\n";
绑定端口并监听
bind( SOCKET, pack_sockaddr_in($port, inet_aton($server)))
or die "无法绑定端口 $port! \n";
listen(SOCKET, 5) or die "listen: $!";
print "访问启动：$port\n";
接收请求
my $client_addr;
while ($client_addr = accept(NEW_SOCKET, SOCKET)) {
send them a message, close connection
my $name = gethostbyaddr($client_addr, AF_INET );
print NEW_SOCKET "我是来自服务端的信息";
print "Connection recieved from $name\n";
close NEW_SOCKET;
}
打开一个终端，执行以下代码：
$ perl sever.pl
访问启动：7890
客户端 client.pl 代码：
实例
!/usr/bin/perl -w
Filename : client.pl
use strict;
use Socket;
初始化地址与端口
my $host = shift || 'localhost';
my $port = shift || 7890;
my $server = "localhost"; # 主机地址
创建 socket 并连接
socket(SOCKET,PF_INET,SOCK_STREAM,(getprotobyname('tcp'))[2])
or die "无法创建 socket $!\n";
connect( SOCKET, pack_sockaddr_in($port, inet_aton($server)))
or die "无法连接：port $port! \n";
my $line;
while ($line = ) {
print "$line\n";
}
close SOCKET or die "close: $!";
打开另外一个终端，执行以下代码：
$ perl client.pl
我是来自服务端的信息
