https://bioinformaticsonline.com/snippets/view/42909/perl-script-to-get-all-the-descendent-in-a-tree? https://bioinformaticsonline.com/snippets/view/42909/perl-script-to-get-all-the-descendent-in-a-tree Tue, 23 Feb 2021 11:56:59 -0600 https://bioinformaticsonline.com/snippets/view/42909/perl-script-to-get-all-the-descendent-in-a-tree use warnings; use Bio::DB::Taxonomy; #Rotifera 10190 # Get one from a NCBI taxonomy database my $dbh = Bio::DB::Taxonomy->new(-source => 'flatfile', -directory=> "taxdump", -nodesfile=> "taxdump/nodes.dmp", -namesfile=> "taxdump/names.dmp"); my $taxon = $dbh->get_taxon(-taxonid => 10190); my @taxa = $dbh->get_all_Descendents($taxon); foreach (@taxa) {print $_->id; print "\n";}]]> LEGE