在Perl中進行網絡編程通常使用Socket模塊。以下是一個簡單的示例代碼來連接到一個服務器并發送和接收數據:
use strict;
use warnings;
use IO::Socket;
# 連接到服務器
my $host = 'example.com';
my $port = 80;
my $socket = IO::Socket::INET->new(
PeerAddr => $host,
PeerPort => $port,
Proto => 'tcp'
) or die "無法連接到服務器: $!";
# 發送數據
my $data = "Hello, server!";
$socket->send($data);
# 接收數據
my $response;
$socket->recv($response, 1024);
print "收到服務器回應: $response\n";
# 關閉連接
$socket->close();
這只是一個簡單的例子,實際應用中可能需要更復雜的邏輯來處理數據的發送和接收。Perl中還有其他網絡編程模塊,如Net::FTP、Net::SSH、Net::SMTP等,可以根據具體需求選擇合適的模塊來進行網絡編程。