如何从 Perl 中的 URL 中提取域？

Question

如何从 URL 中提取域？有 Perl 模块吗？我找不到任何。

Answer 1

您可以使用URI模块。

my $host = URI->new($url)->host

如果 URL 可以是相对 URL，

my $host = URI->new_abs($url, $base_url)->host