PHP中$#u服务器['；HTTP#u主机'；]的Perl等价物是什么？

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

主机名本身几乎没有任何用处，您还需要服务器端口，以及昵称为netloc的组合。您很可能需要此值来构造脚本的URI。这已经包含在框架中，无需手动执行。以下两种方法的代码示例

---

在PSGI中，从PSGI环境哈希中读取“变量”

HTTP\u HOST

（或者，

SERVER\u NAME

和

SERVER\u PORT

），或者调用

---

在CGI中，组合POSIX环境变量，或调用该方法

---

当要求在技术方面具有同等地位时，请用这两个名称进行标记。提供文档或描述，以便不仅知道两者的人可以回答，而且知道其中一个的人也可以回答。我编辑了这个问题以改进这一点。

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
    ]];
};

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;