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

Question

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

Answer 1

The hostname alone is almost never useful, you also want the server port, in combination nicknamed netloc . Most likely you need this value to construct a URI to the script. This is already included in the frameworks, no need to do this manually. Code samples for both ways following.

---

In PSGI, read the "variable" HTTP_HOST (alternatively, SERVER_NAME and SERVER_PORT ) from the PSGI environment hash, or call the uri method in Plack::Request .

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

---

In CGI, combine the POSIX environment variables SERVER_NAME and SERVER_PORT , or call the url method.

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;