替换字符串中的URL - Perl

Question

我有一堆字符串中有URL，我需要删除URL并用另一个替换它。我能想到的做到这一点的唯一方法是用split：

($start, $url, $end) = split(/:/); 

但我不认为这是去了解它的正确方法，因为如果该URL字符串的开始或结束它将无法正常工作。

任何想法不胜感激:)

Answer 1

URI::URL是你的朋友。

#!/usr/bin/perl 
use strict; 
use URI::Split qw(uri_split uri_join); 
my ($scheme, $auth, $path, $query, $frag) = uri_split($uri); 
my $uri = uri_join($scheme, $auth, $path, $query, $frag); 

Answer 2

尝试使用URI::Find。

Answer 3

已经建议URI::Find看起来是一个很好的选择。

或者，Regexp::Common可以提供合适的URL匹配的URL，例如：

use Regexp::Common qw(URI); 
my $string = "Some text, http://www.google.com/search?q=foo and http://www.twitter.com/"; 
$string =~ s{$RE{URI}}{http://stackoverflow.com/}g; 

上面将与http://stackoverflow.com/同时取代的URL，例如，

Answer 4

如果你也有多个输入文件，并需要持续改变字符串的所有输入文件，这个脚本就可以派上用场：

http://unixgods.org/~tilo/replace_string/