代码之家 › 专栏 › 技术社区 › Grey Panther

为什么第一次更换没有任何效果?

perl regex

Grey Panther · 技术社区 · 17 年前

use strict;
use warnings;
use LWP::Simple;

my $youtubeCN = get(shift @ARGV);
die("Script tag not found!\n")
 unless $youtubeCN =~ /<script src="(.*?)">/;
my $youtubeScr = $1;
# WHY ???
$youtubeScr =~ s/&amp;/&/g;
$youtubeScr =~ s/&amp;/&/g;
my $gmodScr = get($youtubeScr);

$gmodScr =~ s/http:\/\/\?container/http:\/\/www.gmodules.com\/ig\/ifr\?/;
print "<script type=\"text/javascript\">$gmodScr</script>\n";

:我这样称呼这个脚本:

perl bork_youtube_channel.pl 'http://www.youtube.com/user/pennsays'

:事实证明,URL毕竟是双重编码的。谢谢大家的帮助!

1 回复 | 直到 17 年前

Jon Skeet 17 年前

我怀疑,如果你看看输入数据是

use strict;
use warnings;

my $youtubeScr = "a&amp;b";

$youtubeScr =~ s/&amp;/&/g;
print $youtubeScr;
print "\n";

$youtubeScr =~ s/&amp;/&/g;
print $youtubeScr;
print "\n";

a&b
a&b

你确定你的原始文本不是 foo&amp;bar ?这将产生

foo&amp;bar
foo&bar

PS我的perl fu烂透了。对于上述代码中的任何语言滥用表示歉意,但我认为它仍然会有所帮助:)

推荐文章

DotFX · RegEx捕获关键字前但括号后的所有内容

1 年前

user66001 · 正则表达式用于匹配有引号和无引号的文本,并且不匹配任何部分

1 年前

perlchamp · 为什么这也匹配?

1 年前

con · Negative Lookaward在perl正则表达式中不起作用

1 年前

Andrus · 如何在sql中查找第二个匹配项

1 年前

iato · 确保正则表达式不从命名材料中的数字中提取

1 年前

vr8ce · 非成对标记中特定字符的正则表达式

1 年前

MARTIN · 交换第一个和最后一个单词,反转所有中间的字符

1 年前

Carsten · 使用最近的搜索模式更改文本块

1 年前

Eric Marceau · Grep:有没有一种特殊的方法可以将“无字符”作为“字符位置”匹配的置换?

1 年前