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