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

Question

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

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

或更直接

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

输出:

返回客户端的IP地址

我如何设置自己的 自定义环境变量到 psgi hash pack ?

为什么我想这样做，我的情况与:
Nginx variables similar to SetEnv in Apache?

如果无法做到这一点， 我可以创建子类并将该功能添加到 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环境变量。