perl - 如何使所有请求都转到 perl 中的“前端控制器”

Question

我第一次在 perl 中制作应用程序，并希望使用前端控制器方法，其中所有请求都通过一个脚本，该脚本根据 uri 委派要加载的页面。

我的脚本是什么样的：

use LWP::UserAgent;
use Template;

my $base_url = 'project.local/';
my $ua = LWP::UserAgent->new;

if ($ua->get($base_url . 'reports'))
{
        my $reports_tt = Template->new(\%options);
        $reports_tt->process('reports.tt', \%varz, 'reports.html') or die $reports_tt->error;
}

所以在我的 home.html 页面上，有一个指向“project.local/reports”的链接。单击此链接时，我想加载“reports.html”页面。使用这种方法，我可以将所有路线保存在一个地方。

但这不会加载reports.html 页面，我是不是用LWP::UserAgent->get()错了方法？我想我需要一种方法来将所有请求路由到 .htaccess 文件中的脚本，但我完全不知道该怎么做。有人可以帮忙吗？

Answer 1

您完全使用了错误的工具。LWP::UserAgent是一个 HTTP 客户端库——它用于创建 HTTP 请求并将其发送到其他 Web 服务器。它不能用于响应 HTTP 请求或编写 Web 服务器。

完全解释如何用 Perl 编写 Web 应用程序超出了我在此所能做的合理范围，但您可能想看看现有的 Perl Web 开发框架，如Catalyst、Dancer和Mojolicious。