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库。