Mercurial > repos > iuc > onto_tk_term_id_vs_term_def
view get_parent_terms_by_relationship_type.pl @ 0:4d1fb16ff86a draft
planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/onto-toolkit commit 9422f839ae354d4c26b02d4494abdeaad518d0e6
author | iuc |
---|---|
date | Fri, 10 Nov 2017 11:31:44 -0500 |
parents | |
children |
line wrap: on
line source
#!/usr/bin/perl eval 'exec /usr/bin/perl -S $0 ${1+"$@"}' if 0; # not running under some shell use Carp; use strict; use warnings; use OBO::Parser::OBOParser; my $my_parser = OBO::Parser::OBOParser->new(); my $ontology = $my_parser->work(shift(@ARGV)); my $term_id = shift(@ARGV); my $rel_id = shift(@ARGV); my $target_term = $ontology->get_term_by_id($term_id); my @rels = @{$ontology->get_relationships_by_source_term($target_term, $rel_id)}; foreach my $r (@rels) { # print "rel: ", $r->id(), "\n"; print $r->head()->id(); # print "tail: ", $r->tail()->id(), "\n\n"; } exit 0; __END__