在兩個字符串中找到匹配的字符串

Question

我想獲得有關Perl腳本的提示，該腳本可以找到兩個字符串中存在的最長的公共子字符串。 每個字符串的最大長度為500個字符。

例如

abcsffwqfwqsdfasdfTHISISANAPPLEfasdfasdfsdfsadfasdfsdaf4353.54.4fdfsdgg
detertqteqtTHISISANAPPLEafsedfgwetwqrgtwrgtwetpqw4t5osdavm\wert4384..53

輸出應為THISISANAPPLE

聽起來很簡單，但可能並不簡單。

有人有主意嗎？

Answer 1

檢查字符串:: LCSS_XS

use String::LCSS_XS 'lcss';

my ($s1,$s2) = (
  "abcsffwqfwqsdfasdfTHISISANAPPLEfasdfasdfsdfsadfasdfsdaf4353.54.4fdfsdgg",
  "detertqteqtTHISISANAPPLEafsedfgwetwqrgtwrgtwetpqw4t5osdavm\wert4384..53"
);
my $longest = lcss ($s1, $s2);
print "$longest\n";

產量

THISISANAPPLE