perl中的正則表達式匹配

Question

我想使用最小可能的代碼（字符數）來檢查兩個相同長度的單詞是否相差一個字符。我有一個邏輯，我使用for循環遍歷單詞中的每個單詞，並檢查整個集合是否只有一個字符不同......但這似乎是一段長長的代碼...

有人可以建議一些正則表達式，可以用它來以更緊湊的方式嗎？

Answer 1

可以Concat的兩個詞，並使用此模式：

"bilboquetbilbaquet" =~ /^(.*)(.)(.*)\1(?!\2).\3$/ # exactly one character different 

"bilboquetbilbaquet" =~ /^(.*)(.)(.*)\1.\3$/ # one character max 

圖案的詳細資料：

^   # anchor for the start of the string 
(.*)  # capture group 1: zero or more characters 
(.)  # capture group 2: one character 
(.*)  # capture group 3: zero or more characters 
\1  # backreference to group 1 
(?!\2) # negative lookahead: not followed by group 2 content 
.   # one character 
\3  # backreference to group 3 
$   # anchor for the end of the string 

例如：

my $strA = "bilboquet"; 
my $strB = "bilbaquet"; 

my $result = ($strA.$strB) =~ /^(.*)(.)(.*)\1(?!\2).\3$/; 

print $result;