perl - 将自定义环境变量设置为 psgi hash plack

Question

当我向 dumper $env 发出请求时，我得到了环境哈希 psgi 的所有数据，在这个例子中

sub { 
  my $env = shift;  
  return [ 200, [], [ $env->{REMOTE_ADDR} ] ];  
}

或更直接地

sub { 
  return [ 200, [], [ shift->{REMOTE_ADDR} ] ];   
}

输出：

返回客户端的 IP 地址

如何将我自己的自定义环境变量设置为 psgi hash plack？

为什么我要这样做，我的情况与： Nginx 变量类似于 Apache 中的 SetEnv？

如果不能这样做，我可以创建子类并将该功能添加到 psgi Web 服务器吗？

谢谢你的时间

Answer 1

假设您想在应用程序服务器中设置变量，这对于某些 plack 中间件来说似乎是完美的案例。对于这种情况，我找到了Plack::Middleware::ReviseEnv，它可以在你的 app.psgi 中使用：

# app.psgi
use Plack::Builder;

my $app = sub {
    return [ 200, [], [ shift->{var} ] ];
};

builder {
    enable "ReviseEnv", revisors => { 'var'  => 'custom',
                                      'var2' => 'other' };
    $app;
};

该文档还列出了用于设置简单文本之外的值的其他选项，例如包括其他$env数据或%ENV环境变量。