使用正则表达式时URL被截断

Question

我试图从HTTP GET响应中提取网址，所以像＃34; http://xxxxxxxxx.com＆＃34;必须被提取。

(https?):\/\/(www\.)?[a-z0-9\.:].*?(?=\s)

但是当我得到它时，请使用让他们说......

$var = "http://www.google.co.uk"
print $var =~ m/(https?):\/\/(www\.)?[a-z0-9\.:].*?(?=\s)/ig; 

显示的字符串被截断，如：＆＃34; http://www.google.com＆＃34;没有别的。

为什么会这样？

使用REGEXR时，文字不会被删除。

Answer 1

这应该有效：

my $var = "http://www.google.co.uk";
if ($var =~ m!((https?)://(www\.)?[a-z0-9.:]*)!ig)
{
    print "$1\n";
}

Answer 2

你需要删除积极的先行断言。

my $var = "http://www.google.co.uk";
print $var =~ m/https?:\/\/(?:www\.)?[a-z0-9\.:]\S+/ig;