如何从Perl中的URL中提取方案，主机和端口？

Question

我需要能够从URL中提取方案，主机和端口。

所以，如果我在浏览器网址是：http://www.example.com:80/something.pl 我需要能够获得：http://www.example.com:80

Answer 1

的URI模块可以帮助您切片和切块一个URI任何你想要哪种方式。

如果您尝试在CGI脚本中执行此操作，您需要查看$ENV{SERVER_NAME}和$ENV{SERVER_PORT}。

使用正在使用的CGI模块（例如CGI.pm或CGI::Simple）的url方法使事情更加简单。

Answer 2

sub cgi_hostname { 
    my $h = $ENV{HTTP_HOST} || $ENV{SERVER_NAME} || 'localhost'; 
    my $dp =$ENV{HTTPS} ? 443 : 80; 
    my $ds =$ENV{HTTPS} ? "s" : ""; 
    my $p = $ENV{SERVER_PORT} || $dp; 
    $h .= ":$p" if ($h !~ /:\d+$/ && $p != $dp); 
    return "http$ds\://$h"; 
} 

Answer 3

随着modperl，它在Apache2::RequestRec对象，即使用uri，或unparsed_uri。

您无法从中获取输入到用户浏览器中的确切文本，只能获取呈现给服务器的内容。

服务器名称（虚拟主机）位于服务器对象中。

Answer 4

我让URI模块数字出来，所以我没有创建新的bug：

use 5.010; 
use URI; 

my $url = 'http://www.example.com:80/something.pl'; 

my $uri = URI->new($url); 

say $uri->scheme; 
say $uri->host; 
say $uri->port;