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");
}
}