fix ID example

bioperl · Feb 19, 2013 · 0c90a0d · 0c90a0d
1 parent eb8d5ef
commit 0c90a0d
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/examples/db/getGenBank.pl b/examples/db/getGenBank.pl
@@ -14,7 +14,7 @@
 my $seqout = new Bio::SeqIO(-fh => \*STDOUT, -format => 'fasta');
 
 # if you want a single seq
-my $seq = $gb->get_Seq_by_id('MUSIGHBA1');
+my $seq = $gb->get_Seq_by_id('J00522');
 $seqout->write_seq($seq);
 # or by accession
 $seq = $gb->get_Seq_by_acc('AF303112');
@@ -23,7 +23,7 @@
 
 # feel free to pull multiple sequences...
 # if you want to get a bunch of sequences use the get_Stream_by_id/acc methods
-my $seqio = $gb->get_Stream_by_id([ qw(J00522 AF303112 2981014)]); 
+my $seqio = $gb->get_Stream_by_id([ qw(J00522 AF303112 2981014)]);
 
 while( defined ($seq = $seqio->next_seq )) {
         $seqout->write_seq($seq);