use Bio::SeqIO; use strict; my $seqio= ''; my $seqobj= ''; my $seq_stats= ''; my %hash=(); my $seq=''; my $seqio = Bio::SeqIO ->new(-file=> "GenBank_Records.txt", -format => 'genbank'); print "Enter Acc number"; $acc=<STDIN>; chomp $acc; $hash{$seq->accession_number}= $seq->seq; print $hash{$acc}; exit;
In reply to bioperl genbank into a hash by rolandomantilla
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |