检查一个URL是否在Perl中的域名后面有任何东西

Question

我试图用正则表达式匹配任何和每个只包含域名的URL（例如www.domain.com或otherdomain.com\）。所以domain.com或domain.com/应该匹配，但domain.com/index不应该。

我已经试过这样：

^://[^/]*(/)?$ 

但它似乎并没有工作。我怎样才能做到这一点？

Answer 1

/^(?:https?://)?[^/]*(/)?$/i 

试试这个。见demo

Answer 2

$ printf '%s\n' domain.com/index sub.domain.com/ domain.com | 
    perl -lne 'm|/\w+| or print' 
sub.domain.com/ 
domain.com