Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/env perl -l

...
delete @seq{grep { length $seq{$_} < $min } keys %seq};
    
print "$_: $seq{$_}" for sort keys %seq;
  2. or download this
    >1
AAA
...
123456789012345
>8
1234567890123456
  3. or download this
    $ pm_1190090_fasta_filter_length.pl
3: AAACCCGGGTTT
...
6: 12345678901234
7: 123456789012345
$
  4. or download this
    >9
123456789
...
1234567890
>11
12345678901
  5. or download this
    10: 1234567890
11: 12345678901