我正在研究一个使用 Plack 的 Web 服务的奇怪实现,我不太明白所有部分是如何组合在一起的(一位同事从教程中复制并修改了它,但他再也找不到教程了)。
首先,这段代码确实有效,尽管它很奇怪。
以下是我所知道的:在高层次上,这段代码实现了一个 Web 服务。由于 Plack 的约定,该文件必须返回一个方法,该方法将请求参数作为输入,然后返回 HTTP 代码和正文。这就是为什么会有“我的 $app = sub {”。假设这是文件中的最后一行(即 app.psgi),它将是文件的返回值。
我不明白一些以“return sub”开头的东西。我相信这本质上是覆盖“my $app = sub {”,因为现在这是文件将返回的函数。
然而,这可能是错误的,因为它似乎需要不同的论据。它不采用 $env(这是有关请求的信息,包括 GET 参数),而是采用参数 $responder。当我打印出它的类型时,它是 CODE。我不知道那是什么意思。
然后下一行似乎同时返回一个 HTTP 代码(开始我们的响应)并获得一个写入器来写入额外的数据。之后的一切都是有道理的。
所以总而言之,我需要帮助理解第二种方法在做什么,以及它的论点的性质是什么。首先十分感谢。
use strict;
use warnings;
use Plack::Request;
use POSIX ":sys_wait_h";
use IO::Handle;
STDOUT->autoflush(1);
my $app = sub {
my $env = shift;
my $req = Plack::Request->new($env);
print "Worker PID: $$\n";
my $params = $req->parameters();
return sub {
my $responder = shift;
#this will print "responder type: CODE"
print "responder type: " . (ref $responder) . "\n";
my $writer = $responder->(
[ 200, [ 'Content-Type', 'application/html' ]]);
$writer->write("some content");
$writer->close();
}
}