Help for this page

Select Code to Download


  1. or download this
    foreach my $str (sort {($substrings{$b}[1]-$substrings{$b}[0]) <=> ($s
+ubstrings{$a}[1]-$substrings{$a}[0]) || $substrings{$a}[0] <
=> $substrings{$b}[0]}  keys %substrings){
  2. or download this
    foreach my $str (sort {($substrings{$b}[1]-$substrings{$b}[0]) <=> ($s
+ubstrings{$a}[1]-$substrings{$a}[0]) || $substrings{$a}[0] <
=> $substrings{$b}[0]} sort keys %substrings){