view scripts/get_sequence_based_on_id.pl @ 32:cf7cd22fc5d3 default tip

add changeset revisions for packages

use Bio::DB::Fasta;

my $fastaFile = shift;
my $queryFile = shift;

my $db = Bio::DB::Fasta->new( $fastaFile );
    $seq = $queryFile;
    chomp($queryFile);

    my $sequence = $db->seq($seq);
    if  (!defined( $sequence )) {
            die "Sequence $seq not found. \n" 
    }   
    print ">$seq\n", "$sequence\n";