Question: Bioperl - how can i print first result of result sequence per iteration?
gravatar for Xylanaser
3.3 years ago by
Poland - Warsaw - SGGW/WULS
Xylanaser60 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 3.3 years ago by Neilfws49k • written 3.3 years ago by Xylanaser60
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: 1174 users visited in the last hour