在Perl中获取URL的第一部分

Question

我将一个URL保存到Perl中的变量中，我想在域名后删除所有内容。我认为抓住第三个斜线左边的所有东西都应该这样做。我确实想保留协议。

Answer 1

($url) = $url =~ m! (.+?\w) (?: /|\z) !x;