Help for this page

Select Code to Download

Select or download this

usage extract-seq.pl file1 file2
cat file1
...
ACCGTTAGTACGATACA
    .
    .

Select or download this

#!/usr/bin/perl

...
     if (/^([\w\d]+)/ && $names{$1}) { print OUT ">$_";}

}