過去スレで
sub absolute($)
{
my $str = shift;
my $ret;
$str =~ s/^"//;
$str =~ s/"$//;
if($str =~ m,^/,) { return qq("$server$str"); } elsif($str =~ m,^http://,) { return qq("$str"); } else { return qq("$base$str"); }
}
ってのを発見して使いたいなと思ったのですが、サーバー名とベース名をURLから切り分けるのが何故かうまくいきません
$url = 'http://www.example.com/files/test.html';
$url =~,(http://[^/]*/)(.*),;
$server = $1;
$base = $2;
とした場合、$baseにtest.htmlも含まれてしまいます。
これの正しい正規表現はどうなるのでしょうか？宜しくお願いします。