Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
use strict;
...
CAGCAGACATCTGAATGAAGAAGAGGGTGCCAGCGGGTATGAGGAGTGCATTATCGTTAATGGGAACTTC
AGTGACCAGTCCTCAGACACGAAGGATGCTCCCTCACCCCCAGTCTTGGAGGCAATCTGCACAGAGCCAG
TCTGCACACC
  2. or download this
        (my $id) = $line =~ /^(>\w+)/;  #allow for kruft after id
    print "$id\t";