如何重寫除特定網域之外的網址？

Question

能否請你幫我做Perl的正則表達式替換 （http://.+），以http://www.my1.com/redir？$ 1 卻又無可奈何對於網址像http://www.my1.com/或http://my1.com/

比如我需要更換 http://whole.url.site.com/foo.htm到http://www.my1.com/redir?http://whole.url.site.com/foo.htm http://www.google.com到http://www.my1.com/redir?http://www.google.com 但http://www.my1.com/index.php未經處理。

非常感謝！

Answer 1

這可能不是一個好主意，但它可以做到：

$foo='http://www.foo.com/'; 
$foo =~ s#^(http://(?!(?:www\.)?my1\.com/).+)$#http://www.my1.com/redir?$1#; 
print $foo; 

結果：

http://www.my1.com/redir?http://www.foo.com/ 

布賴恩在評論它不會與不中「/」結尾的網址工作指出。我不確定是否要重寫該網址。正如我在對您的問題發表評論時所說的，您確實需要更準確地瞭解您要做什麼以及爲什麼需要使用正則表達式來完成此任務。

Answer 2

s{http://www\.nop1\.com/}{http://www.my1.com/redir?http://www.nop1.com}g 

滿足您的要求，如上所述。

如果您的要求有點不同，您需要準確解釋您的要求。

此外，我不確定這與負向預測有什麼關係。

編輯：有了重新的問題，在這裏我們去：

s{^http://(?!(?:www\.)?my1\.com)(.+)}{http://www.my1.com/redir?$1}g 

（扭捏了一點）

Answer 3

你可能會想捕捉URL的網站名稱，如果是的話試試這個：

s{http://www\.(.*?)\.com/}{http://www.my1.com/redir?http://www.$1.com}g 

Answer 4

s|(http://www\.(?!my1\.)(.*)\.com)|http://www.my1.com/redir?$1|i; 

這個匹配WWW。*。com網站，是不是www.my1.com，並把它重定向。

Answer 5

如果您在Perl腳本中執行此操作，請勿使用正則表達式。在這種情況下閱讀它們是一團糟，到目前爲止，每個正則表達式的答案都被破壞了，因爲它沒有將URI轉義到你想要放入查詢字符串的東西。

，而不是試圖解析URI自己，讓經過時間考驗的URI模塊處理所有的邊緣情況爲您服務。該URI::Escape模塊幫助您查詢字符串，所以你不要被奇怪的字符在URL中輪迴一圈：

#!perl 

use URI; 
use URI::Escape; 

while(<DATA>) 
    { 
    chomp; 

    my $url = URI->new($_); 

    if($url->host =~ /(^|\.)my1\.com$/) { 
     print "$url\n"; 
     } 
    else { 
     my $query_string = uri_escape($url->as_string); 
     print "http://www.my1.com/redir?$query_string\n"; 
     } 
    } 

__DATA__ 
http://whole.url.site.com/foo.htm 
http://www.google.com 
http://www.google.com/search?q=perl+uri 
http://www.my1.com/index.php 
http://my1.com/index.php 
http://moremy1.com/index.php