String::LCSS - Find The Longest Common Substring of Two Strings.

  require String::LCSS;
  my $longest = String::LCSS::lcss ( "zyzxx", "abczyzefg" );
  print $longest, "\n";

  my @result = String::LCSS::lcss ( "zyzxx", "abczyzefg" );
  print "$result[0] ($result[1],$result[2])\n";

String::LCSS provides the function "lcss" to ferret out the longest common substring shared by two strings passed as arguments. undef is returned if the susbstring length is one char or less.

When used in an array context, lcss will returns the indexi of the match root in the two args.

This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

None presently known.

Daniel Yacob, Yacob@EthiopiaOnline.Net