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

当我向dumper $env请求时,我得到了enviromment hash psgi的所有数据,在这个例子中

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

或更直接

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

输出:

返回客户端的IP地址

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

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

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

谢谢你的时间

最佳答案 假设您想在应用程序服务器中设置变量,这看起来像是一些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环境变量.

点赞