BioPerl-初探

Windows 7 + ActivePerl + Bioperl

示例1

use Bio::Seq;
$seq_obj = Bio::Seq->new(-seq => "aaaatgggggggggggccccgtt", 
                         -alphabet => 'dna' );
print $seq_obj->seq;
print $seq_obj->alphabet;
## aaaatgggggggggggccccgtt
## dna

Reference

[1] http://bioperl.org/howtos/
[2]