Help for this page

Select Code to Download


  1. or download this
    #! perl
use strict;
...

print " C. Non-redundant sequences are:\n";
printf ">%s cds\n%s\n", ( sort @{$seqs{$_}} )[0], $_ for sort keys %se
+qs;
  2. or download this
    18:47 >perl 1009_SoPW.pl
 A. Header & sequences are:
...
GGG

18:47 >
  3. or download this
    my %seqs = reverse %hdrs;
...
print " C. Non-redundant sequences are:\n";
printf ">%s cds\n%s\n", $seqs{$_}, $_ for sort keys %seqs;