在PHP中，$ _ SERVER ['HTTP_HOST']的Perl等价于什么？

Question

如何在Perl脚本中获取当前域名，即$_SERVER['HTTP_HOST'] PHP变量的等效Perl代码？

Answer 1

单独的主机名几乎永远不会有用，您还需要服务器端口（昵称为netloc） 。 您很可能需要此值来构造脚本的URI。 这已经包含在框架中，无需手动进行。 以下两种方式的代码示例。

---

在PSGI中，从PSGI环境哈希中读取“变量” HTTP_HOST （或者， SERVER_NAME和SERVER_PORT ），或在Plack :: Request中调用uri方法 。

use Plack::Request qw();
my $app = sub {
    my ($env) = @_;
    my $req = Plack::Request->new($env);
    return [200, ['Content-Type' => 'text/plain'], [
        sprintf "Host: %s\nURI: %s", $env->{HTTP_HOST}, $req->uri
    ]];
};

---

在CGI中，组合POSIX环境变量SERVER_NAME和SERVER_PORT ，或调用url方法。

use CGI qw();
my $c = CGI->new;
print $c->header('text/plain');
print "Host: $ENV{SERVER_NAME}:$ENV{SERVER_PORT}\n";
print "URI: " . $c->url;