foreach $entry (@GILIST) { $seq1 = $gb->get_Seq_by_acc("$entry") || die "$entry is not a real accession number.\n"; $speciesname = $seq1->species->common_name; $specieslist{$entry} = $speciesname; print p ("Gi# $entry is a $speciesname nucleotide sequence.\n"); } #### print p ("Gi# $entry is a $specieslist{$entry} nucleotide sequence.\n"); #### foreach $entry (@GILIST) { $seq1 = $gb->get_Seq_by_acc("$entry") || die "$entry is not a real accession number.\n"; $speciesname = $seq1->species->common_name; $specieslist{$entry} = $speciesname; } foreach my $entry (sort keys %specieslist) { print p ("GI# $entry is a $specieslist{$entry} nucleotide sequence.\n"); } #### foreach $entry (@GILIST) { $seq1 = $gb->get_Seq_by_acc("$entry") || die "$entry is not a real accession number.\n"; $speciesname = $seq1->species->common_name; unless ($speciesname eq $specieslist{$entry}) { $specieslist{$entry} = $speciesname; print p ("Gi# $entry is a $speciesname nucleotide sequence.\n"); } }