Perl：找到兩個字符串的所有匹配的子字符串

Question

也許有一個函數，它可以找到perl中每個（按字符長度最大）等於string1和string2的子字符串，不是嗎？

我可以找到字符串中的每個子字符串，使用m/substring/g;。

爲了搜索所有相等的子字符串，我必須移動string1的begin和symbol-by-simbol比較字符串的指針。我怎樣才能在Perl中做到這一點，或者有沒有一種方法可以解決？ （就緒功能）

預先感謝您。

my $string1 = "... (i==i)kn;i=n.n;k(i(i,"%i",&i);i ..."; my $string2 = "... k;kn;i=n.n;k;k(i(i,"%i",&i);k ..."; my @answer = (..., "kn;i=n.n;", "k(i(i,"%i",&i);", ...);

Answer 1

你舉的例子似乎表明返回字符串的兩種不同的長度，與一個較短的第一，所以我不知道什麼是「最大的長度」的意思。但是，這可能會有幫助：

use Tree::Suffix; 
my $string1 = '(i==i)kn;i=n.n;k(i(i,"%i",&i);i'; 
my $string2 = 'k;kn;i=n.n;k;k(i(i,"%i",&i);k'; 
my $tree = Tree::Suffix->new($string1, $string2); 
my @answer; 
my $min_length = 1; 
my $max_length = 0; # 0 initially means no limit 
do { 
    my @by_length = $tree->lcs($min_length,$max_length); 
    last unless @by_length; 
    # don't include any substrings that are substrings of substrings already found 
    for my $new_substring (@by_length) { 
     push @answer, $new_substring if 0 == grep $_ =~ /\Q$new_substring/, @answer; 
    } 
    $max_length = length($by_length[0])-1; 
} while $max_length >= $min_length; 
use Data::Dumper; 
print Dumper \@answer; 

輸出：

$VAR1 = [ 
     ';k(i(i,"%i",&i);', 
     'kn;i=n.n;k' 
    ]; 

樹::後綴是那種安裝疼痛;我必須刪除包含的inc/Devel/CheckLib.pm，因爲它存在錯誤，並單獨安裝Devel :: CheckLib，以及下載和安裝libstree庫。