Help for this page

Select Code to Download

Select or download this

use Bio::SeqIO;

...
{
    print $out_obj $_;
}

Select or download this

    # print out the sequence
    my $nuc = 60;        # Number of nucleotides per line
    my $whole_pat = 'a10' x 6; # Pattern for unpacking a whole line
    my $out_pat   = 'A11' x 6; # Pattern for packing a line