perl：查找两个字符串的所有匹配子串

Question

也许有一个函数，它可以在 perl 中找到 string1 和 string2 的每个（最大长度）相等的子字符串，不是吗？

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

为了搜索所有相等的子字符串，我必须移动 string1 的开始指针并逐个符号比较字符串。我怎样才能在 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'
    ];

Tree::Suffix 安装起来有点麻烦；我不得不删除包含的 inc/Devel/CheckLib.pm，因为它有错误并单独安装 Devel::CheckLib，以及下载和安装 libstree 库。