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

前端之家收集整理的这篇文章主要介绍了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环境变量.

猜你在找的Perl相关文章