perl - 如何在 Perl 中从两个组件创建绝对 URL？

Question

假设我有:

my $a = "http://site.com";
my $part = "index.html";
my $full = join($a,$part);
print $full;
>> http://site.com/index.html

我必须使用什么作为 join ，为了让我的片段工作？

编辑:我正在寻找更一般的东西。如果 a以斜杠结尾， part从一个开始？我敢肯定，在某些模块中，有人已经涵盖了这一点。

Answer 1

我相信您正在寻找的是URI::Split ，例如:

use URI::Split qw(uri_join);
$uri = uri_join('http', 'site.com', 'index.html')