Perl 正则表达式获取 URL 的根域 [英] Perl Regex to get the root domain of a URL

问题描述

我怎样才能得到 url 的一部分?

How could I get some part of url?

例如:

http://www.facebook.com/xxxxxxxxxxx
http://www.stackoverflow.com/yyyyyyyyyyyyyyyy

我只需要参加这部分:

facebook.com
stackoverflow.com

推荐答案

只是一些简单的正则表达式.

Just some simple regex stuff.

$facebook = "www.facebook.com/xxxxxxxxxxx";

$facebook =~ s/www\.(.*\.com).*/$1/; # get what is between www. and .com

print $facebook;

退货

facebook.com

您可能还希望为 .net、.org 等工作.例如:

You may also want to make this work for .net, .org, etc. Something like:

s/www\.(.*\.(?:net|org|com)).*/$1/;

这篇关于Perl 正则表达式获取 URL 的根域的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！