如何從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;