Perl的正則表達式禁用括號提取

Question

我想要的東西，我就another answer找到，但我有一些問題：

我知道有針對URL更好的正則表達式，但考慮這個例如：

@links=($content =~ m/(https?)?.*[.]com/g); 
*$content has text or html 

部分(https?)?用於鏈接，如www.google.com，但其括號返回"http"至$1，將其放入@links！這是一個問題，因爲我想要整個鏈接。

什麼將全球提取簡單從文本鏈接（或任何指定的正則表達式），並把它們放入一個列表？
通過簡單的，我的意思是：

• http://www.google.com
• www.google.com
• google.com
• https://www.google.com

Answer 1

非捕獲版本是這樣的：

m/(?:https?)?.*[.]com/g 

用於捕捉鏈接，我用這個表達式，從URI派生::查找：開盤後`權：

m<https?://[;/\?:\@&=+\$,\[\]A-Za-z0-9\-_.!~*'()%#]*[/\?:\@&=+\$\[A-Za-z0-9\-_!~*(%#]> 

Answer 2

你的做法是太天真了，也不會趕上許多其他的URL。 相反，使用正則表達式::常見，就像這樣：

use Regexp::Common qw/URI/; 

my @links = ($content =~ /$RE{URI}/g); 

這適用於HTTP，HTTPS，FTP等，並適當地捕獲的URL參數更高級的組合。