在Perl中，HTTP::Server::Simple?模塊提供了一種輕量級的方式來實現HTTP服務器。該模塊簡單易用，適合快速開發和測試HTTP服務。本文將詳細介紹如何使用?HTTP::Server::Simple?模塊創建和配置一個輕量級HTTP服務器。

安裝 HTTP::Server::Simple

首先，需要確保安裝了?HTTP::Server::Simple?模塊。如果尚未安裝，可以使用以下命令通過CPAN進行安裝：

cpan HTTP::Server::Simple
?

或者，如果你使用的是?cpanm，可以通過以下命令安裝：

cpanm HTTP::Server::Simple
?

創建簡單的 HTTP 服務器

以下示例展示了如何創建一個最簡單的HTTP服務器，該服務器在本地端口8080上運行，并返回一個簡單的“Hello, World!”消息。

use strict;
use warnings;
use HTTP::Server::Simple::CGI;# 創建一個簡單的服務器類，繼承自HTTP::Server::Simple::CGI
{package MyWebServer;use base qw(HTTP::Server::Simple::CGI);sub handle_request {my ($self, $cgi) = @_;print "HTTP/1.0 200 OK\r\n";print $cgi->header,$cgi->start_html('Hello'),$cgi->h1('Hello, World!'),$cgi->end_html;}
}# 實例化并啟動服務器
my $server = MyWebServer->new(8080);
print "Server is running on http://localhost:8080\n";
$server->run();
?

以上代碼創建了一個繼承自?HTTP::Server::Simple::CGI?的簡單服務器類?MyWebServer，并重寫了?handle_request?方法來處理請求。

擴展服務器功能

可以通過擴展?handle_request?方法來增加服務器的功能。例如，解析請求路徑并返回不同的內容：

use strict;
use warnings;
use HTTP::Server::Simple::CGI;{package MyWebServer;use base qw(HTTP::Server::Simple::CGI);sub handle_request {my ($self, $cgi) = @_;my $path = $cgi->path_info;if ($path eq '/hello') {print "HTTP/1.0 200 OK\r\n";print $cgi->header,$cgi->start_html('Hello'),$cgi->h1('Hello, World!'),$cgi->end_html;} elsif ($path eq '/goodbye') {print "HTTP/1.0 200 OK\r\n";print $cgi->header,$cgi->start_html('Goodbye'),$cgi->h1('Goodbye, World!'),$cgi->end_html;} else {print "HTTP/1.0 404 Not Found\r\n";print $cgi->header,$cgi->start_html('Not Found'),$cgi->h1('404 - Not Found'),$cgi->end_html;}}
}my $server = MyWebServer->new(8080);
print "Server is running on http://localhost:8080\n";
$server->run();
?

在這個示例中，服務器根據請求路徑返回不同的內容。對于?/hello路徑，返回“Hello, World!”消息；對于?/goodbye路徑，返回“Goodbye, World!”消息；對于其他路徑，返回404錯誤。

添加日志記錄

為了便于調試和監控，可以添加日志記錄功能，記錄每個請求的信息：

use strict;
use warnings;
use HTTP::Server::Simple::CGI;
use POSIX qw(strftime);{package MyWebServer;use base qw(HTTP::Server::Simple::CGI);sub handle_request {my ($self, $cgi) = @_;my $path = $cgi->path_info;# 記錄請求信息my $log_entry = strftime("[%Y-%m-%d %H:%M:%S]", localtime) . " - $path\n";open my $log, '>>', 'server.log' or die "Cannot open log file: $!";print $log $log_entry;close $log;if ($path eq '/hello') {print "HTTP/1.0 200 OK\r\n";print $cgi->header,$cgi->start_html('Hello'),$cgi->h1('Hello, World!'),$cgi->end_html;} elsif ($path eq '/goodbye') {print "HTTP/1.0 200 OK\r\n";print $cgi->header,$cgi->start_html('Goodbye'),$cgi->h1('Goodbye, World!'),$cgi->end_html;} else {print "HTTP/1.0 404 Not Found\r\n";print $cgi->header,$cgi->start_html('Not Found'),$cgi->h1('404 - Not Found'),$cgi->end_html;}}
}my $server = MyWebServer->new(8080);
print "Server is running on http://localhost:8080\n";
$server->run();
?

此代碼段通過將每個請求的信息記錄到?server.log?文件中，幫助開發者了解服務器的運行情況和請求歷史。