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

既然你把在由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' 

在perldocs文檔發現substr。

Answer 2

該問題可以通過在腳本中添加兩個字符來解決。你需要的是在$string2逃跑元字符：

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

導致比賽失敗的字符是問號?，在這裏轉義...aspx?...手段「匹配0或者字符‘X’1」。字符.是與除換行符以外的任何內容匹配的通配符，這可能會導致錯誤匹配。斜槓/由於是替代運算符s///的分隔符而爲元字符，因爲它們嵌入字符串中，所以不需要轉義。

使用\Q ... \E轉義序列，在正則表達式中或使用quotemeta可以很容易地轉義元字符。

嘗試和手動轉義這些類型的字符串並不是一個好主意，特別是如果文字匹配是所有必需的話。