Perl 的 Socket 编程是用于网络编程的重要部分，它允许你创建和管理网络连接。Perl 提供了一些模块来方便地实现这些功能，其中 IO::Socket 模块是最常用的。下面提供一个简单的示例来说明如何使用 Perl 进行基本的 Socket 编程，包括创建一个 TCP 客户端和服务器。

创建一个简单的 TCP 服务器

use strict;  
use warnings;  
use IO::Socket::INET;  
# 创建一个 TCP 监听套接字  
my $server = IO::Socket::INET->new(  
    LocalHost => '0.0.0.0',  # 监听所有接口  
    LocalPort => 7890,       # 端口号  
    Proto     => 'tcp',      # 协议  
    Listen    => 5,          # 同时监听的最大连接数  
    Reuse     => 1           # 允许重用地址  
) or die "无法创建套接字: $!\n";  
print "服务器已启动，等待客户端连接...\n";  
while (my $client = $server->accept()) {  
    print "客户端连接成功：", $client->peerhost(), ":", $client->peerport(), "\n";  
    # 向客户端发送消息  
    print $client "欢迎连接到服务器!\n";  
    # 从客户端读取数据  
    while (my $data = <$client>) {  
        print "收到客户端消息: $data";  
        # 回应客户端  
        print $client "服务器响应: $data";  
    }  
    close($client);  
    print "客户端断开连接。\n";  
}  
close($server);  

创建一个简单的 TCP 客户端

use strict;  
use warnings;  
use IO::Socket::INET;  
# 创建一个 TCP 客户端套接字  
my $client = IO::Socket::INET->new(  
    PeerHost => '127.0.0.1',  # 服务器地址  
    PeerPort => 7890,         # 服务器端口  
    Proto    => 'tcp'         # 协议  
) or die "无法连接到服务器: $!\n";  
print "已连接到服务器\n";  
# 从服务器读取欢迎消息  
my $welcome_msg = <$client>;  
print "服务器: $welcome_msg";  
# 发送消息给服务器  
while (my $line = <STDIN>) {  
    print $client $line;  
    # 接收服务器响应  
    my $response = <$client>;  
    print "服务器响应: $response";  
}  
close($client);  

解释

• 服务器：使用 IO::Socket::INET->new() 创建监听 TCP 连接的套接字。提供了 LocalHost 和 LocalPort 参数来指定地址和端口。设置 Listen 为最大连接数，Reuse 允许重用本地地址。

• 客户端：也使用 IO::Socket::INET->new() 进行创建，连接到指定的 PeerHost 和 PeerPort。

这种基本的 TCP 服务器和客户端模式是理解和实现更复杂的网络应用程序的基础。在实际应用中，你可能需要处理更多的错误检测和连接管理、多线程或异步操作等。记得在实际应用中考虑安全性和性能等因素。