如何找到一個字符不同

Question

示例文本文件行：

 
\folder_0 
\folder-0 
\folder-1 
\folder'2 
\folder-3 
\folder_3 
\folder'3 
\folder,3 
\folder,4 

你怎麼找到的是一樣的吧一個字符的線條。例如：

 
\folder_0 
\folder-0 
\folder-3 
\folder_3 
\folder'3 
\folder,3 

Answer 1

請勿使用正則表達式。

首先定義一個給定兩個字符串（來自文件的行）返回true的函數，它們只有一個字符不同。

然後使用關聯數組收集基於該函數僅通過單個字符不同的行的組。

處理完文件後，關聯數組中包含多行的任何條目都是您想要的結果。

Answer 2

其中一個可能的方式如何...（在Perl）...

@m = (m/[\s\S]*?(?:^|\n)(?=(.*?)(.)(.*?)(?:\n|$)(?:[\s\S]*?\n|)(\1.\3)(?:\n|$))/g); 
@p =(); 
while ($#m > 0) { 
    ($a, $b, $c, $d) = (shift(@m), shift(@m), shift(@m), shift(@m)); 
    push(@p, ("$a$b$c", $d)); 
} 
@p = keys %{{map{$_ => 1} @p}}; 

測試此代碼here。