Question: Bioperl - how can i print first result of result sequence per iteration?
gravatar for Xylanaser
2.4 years ago by
Poland - Warsaw - SGGW/WULS
Xylanaser30 wrote:
use Bio::DB::GenBank;
use Bio::DB::Query::GenBank;

$query = "LEGK"; 
$query_obj = Bio::DB::Query::GenBank->new(-db => 'protein', 
                                          -query => $query );

$gb_obj = Bio::DB::GenBank->new;

$stream_obj = $gb_obj->get_Stream_by_query($query_obj);

while ($seq_obj = $stream_obj->next_seq) {
    # do something with the sequence object    
    print ">$query",' ', $seq_obj->display_id, ' ', $seq_obj->desc,"\n", $seq_obj->seq[,'\n';

hey. How can i print first occurrence of protein sequence?

ADD COMMENTlink modified 2.4 years ago by Neilfws48k • written 2.4 years ago by Xylanaser30
Please log in to add an answer.


Use of this site constitutes acceptance of our User Agreement and Privacy Policy.
Powered by Biostar version 2.3.0
Traffic: 1527 users visited in the last hour