Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl
use strict;
...
        print "$query does not appear in the sequence with ID $id\n";
    }
}

Select or download this


C:\Old_Data\perlp>perl t33.pl fasta.txt
...

TAGCGAT does not appear in the sequence with ID >chr1
TAGCGAT does not appear in the sequence with ID >chrM