Select Code to Download

#!/usr/bin/perl
## LONGEST COMMON SUBSTRINGs (LCS):  
use warnings;
...
print "\n@result1: Length=$leng1 letters\n";
print"\n Other common substrings in order of decreasing lengths are:\n
+";
my @result2="?";

The longest common substring :
BABC: Length=4 letters
Other common substrings in order of decreasing lengths are:??

The longest common substring :
ABC; Length=3
Other common substrings in order of decreasing lengths are:
AB: Length=2
BC: Length=2
BA: Length=2

#!/usr/bin/perl
## LONGEST COMMON SUBSTRINGS (sorted) from a set of given sequences:
use strict;
...
my $leng1=$result1;                        # Line 40 
print"\n$result1; Length=$leng1\n\n";
exit;

Microsoft Windows [Version 6.1.7600]
Copyright (c) 2009 Microsoft Corporation.  All rights reserved.
C:\Users\x>cd desktop
...
The longest common substrings in decreasing order of lengths:
Undefined subroutine &main::CSS called at C:\Users\DR-SUPRIYO\Desktop\
+try1.pl line 28.
C:\Users\x\Desktop>