Perl で相対 URL から絶対 URL を作成する - Qiita

URI モジュールの abs を使うのが一番簡単そうだった。 絶対 URI リファレンスを返します。 もし $uri がすでに絶対であれば、それへのリファレンスが単に返されます。 $uri が相対であれば、$uri と $base_uri をつなげることにより新しい 絶対 URI が組み立てられ、返されます。 use strict; use warnings; use utf8; use URI; print URI->new("index.html")->abs("http://example.com") ,"\n"; #=> http://example.com/index.html print URI->new("/path/to/index.html")->abs("http://example.com") ,"\n"; #=> http://example.com/path/to