简单的字符串替换不起作用

Question

以下是我的代码：

my $string1 = '<td><a href="http://www.aaa.com/downloads/details.aspx?FamilyID=a1b2c3">abcdefg</a><br />(123456)</td>';
my $string2 = 'http://www.aaa.com/downloads/details.aspx?FamilyID=a1b2c3';


print "Before string substitution:\n$string1\n";
$string1 =~ s/$string2//;
print "After string substitution:\n$string1\n"; 

以及实际输出：

Before string substitution:
<td><a href="http://www.aaa.com/downloads/details.aspx?FamilyID=a1b2c3">abcdefg</a><br />(123456)</td>
After string substitution:
<td><a href="http://www.aaa.com/downloads/details.aspx?FamilyID=a1b2c3">abcdefg</a><br />(123456)</td> 

我的期望：

Before string substitution:
<td><a href="http://www.aaa.com/downloads/details.aspx?FamilyID=a1b2c3">abcdefg</a><br />(123456)</td>
After string substitution:
<td><a href="">abcdefg</a><br />(123456)</td> 

有人可以告诉我我的代码有什么问题吗？

谢谢。

Answer 1

可以通过在脚本中添加两个字符来解决该问题。您需要的是在$string2 中转义元字符：

$string1 =~ s/\Q$string2//;

导致匹配失败的字符是问号?，这里未转义的...aspx?...表示“匹配字符'x'的0或1”。字符. 是匹配除换行符之外的任何内容的通配符，这可能会导致误报匹配。斜线/ 虽然是元字符，因为它是替换运算符s/// 的分隔符，但不需要转义，因为它们嵌入在字符串中。

转义元字符最容易使用\Q ... \E 转义序列、在正则表达式中或quotemeta 完成。

尝试手动转义这些类型的字符串并不是一个好主意，尤其是在只需要文字匹配的情况下。

Answer 2

由于您输入的字符被 perl 正则表达式视为特殊字符，因此您必须像这样将它们转义：

my $string2 = 'http:\/\/www\.aaa\.com\/downloads\/details\.aspx\?FamilyID=a1b2c3';

然后当你运行你的程序时会出现预期的输出：

<td><a href="http://www.aaa.com/downloads/details.aspx?FamilyID=a1b2c3">abcdefg</a><br />(123456)</td>
After string substitution:
<td><a href="">abcdefg</a><br />(123456)</td>

要从字符串中转义这些字符，最好只使用 perl 的 quotemeta 函数：

my $string2 = quotemeta('http://www.aaa.com/downloads/details.aspx?FamilyID=a1b2c3');

这将为您转义特殊字符，然后您的正则表达式替换将正常工作。

编辑

由于您遇到问题是因为非转义的正则表达式字符，因此此解决方案可能更简单，因为它不需要您转义任何字符：

substr($string1, index($string1,$string2), length($string2)) = '';

这是基于这个例子：

my $name = 'fred';
substr($name, 4) = 'dy'; # $name is now 'freddy'

在 substr 的 perldocs 中找到。