Perl Socket 编程

17 Mar 2025 | 阅读 2 分钟

什么是套接字编程？

套接字是一种程序，它有助于通过网络在不同进程之间建立虚拟连接。

计算机通过在其上运行的各种应用程序接收和发送信息。该信息通过分配给它的唯一 IP 地址路由到系统。通信期间发送的数据采用“协议”格式。这些协议是所有通信伙伴接受的规则。套接字通信中有许多具有不同目标的协议格式。最常用的协议是 TCP/IP 协议。

对于服务器-客户端程序，我们需要创建两个 Perl 脚本。一个用于服务器，另一个用于客户端。这两个控制台将相互通信。您可以在客户端输入数据，这些数据将显示在服务器端控制台上。

Perl 创建服务器

创建套接字服务器需要遵循以下步骤。

使用 socket 调用创建套接字。
使用 bind 调用将套接字绑定到端口地址。
使用 listen 调用在端口地址监听套接字。
使用 accept 调用接受客户端连接。

Perl 创建客户端

创建客户端套接字需要遵循以下步骤。

使用 socket 调用创建套接字。
使用 connect 调用将套接字连接到服务器。

Perl 套接字编程示例

在此程序中，我们在服务器端控制台上显示了客户端数据 Hello World!。

服务器端脚本 server.pl

#!/usr/bin/perl -w
use IO::Socket; 
use strict; 
use warnings; 
my $socket = new IO::Socket::INET ( 
LocalHost => 'localhost', 
LocalPort => '1234', 
Proto => 'tcp', 
Listen => 1, 
Reuse => 1, 
); 
die "Could not create socket: $!n" unless $socket; 
print "Waiting for the client to send data\n"; 
my $new_socket = $socket->accept(); 
while(<$new_socket>) { 
print $_; 
} 
close($socket);

客户端脚本 client.pl

use strict; 
use warnings; 
use IO::Socket; 
my $socket = new IO::Socket::INET ( 
PeerAddr => 'localhost', 
PeerPort => '1234', 
Proto => 'tcp', 
); 
die "Could not create socket: $!n" unless $socket;
print $socket "Hello World!!\n";
close($socket);

输出

Perl 套接字读写程序

在这个客户端-服务器程序中，我们将从客户端控制台上的用户那里获取输入。此输入将通过客户端-服务器通信显示在服务器的控制台上。

这里的服务器端脚本将与之前的脚本保持相同。

服务器端脚本 server.pl

#!/usr/bin/perl -w
use IO::Socket; 
use strict; 
use warnings; 
my $socket = new IO::Socket::INET ( 
LocalHost => 'localhost', 
LocalPort => '1234', 
Proto => 'tcp', 
Listen => 1, 
Reuse => 1, 
); 
die "Could not create socket: $!n" unless $socket; 
print "Waiting for the client to send data\n"; 
my $new_socket = $socket->accept(); 
while(<$new_socket>) { 
print $_; 
} 
close($socket);

客户端脚本 client.pl

use strict; 
use warnings; 
use IO::Socket; 
my $socket = new IO::Socket::INET ( 
PeerAddr => 'localhost', 
PeerPort => '1234', 
Proto => 'tcp', 
); 
die "Could not create socket: $!n" unless $socket;
print "Enter the data:\n";
my $data = <STDIN>;
chomp $data;
print $socket "This is the data entered by user '$data'\n";
close($socket);

输出