如何重写除特定网域之外的网址？

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