Help for this page

Select Code to Download

Select or download this

#An example of my data file 'Test.Fasta', which has 3 records starting
+ at '>'
>gi|62750809
...
>gi|25266387
TGTGTATGTATATTAATTACATTCATATGTATTCACAACACCTGCCTCAAATCAGGCAGAATGGTCCAGG
ATGGAATTAGGGGCAAGCATGAGGTCTTCAGGCTTACTGATTTCTAAGACACAGTAACTTCACTGGTTAG

Select or download this

#!/usr/local/bin/perl
use strict;
...
        my $desc = $seq->desc;
        print $desc, "\n" ;
        }