Help for this page
my $needle = 'i pushed the lazy dog into a creek, the quick brown fox +told me to'; my $haystack = 'the quick brown fox jumps over the lazy dog';
require String::LCSS; my $needle = 'i pushed the lazy dog into a creek, the quick brown fox +told me to'; my $haystack = 'the quick brown fox jumps over the lazy dog'; my $longest = String::LCSS::lcss ( $needle, $haystack ); print $longest, "\n";
www.com | www.net | www.org
No recent polls found