Mercurial > repos > iuc > onto_tk_get_term_synonyms
comparison get_parent_terms_by_relationship_type.pl @ 0:3747710b8936 draft default tip
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:33:45 -0500 |
| parents | |
| children |
comparison
equal
deleted
inserted
replaced
| -1:000000000000 | 0:3747710b8936 |
|---|---|
| 1 #!/usr/bin/perl | |
| 2 | |
| 3 eval 'exec /usr/bin/perl -S $0 ${1+"$@"}' | |
| 4 if 0; # not running under some shell | |
| 5 | |
| 6 | |
| 7 use Carp; | |
| 8 use strict; | |
| 9 use warnings; | |
| 10 | |
| 11 use OBO::Parser::OBOParser; | |
| 12 | |
| 13 my $my_parser = OBO::Parser::OBOParser->new(); | |
| 14 my $ontology = $my_parser->work(shift(@ARGV)); | |
| 15 my $term_id = shift(@ARGV); | |
| 16 my $rel_id = shift(@ARGV); | |
| 17 | |
| 18 my $target_term = $ontology->get_term_by_id($term_id); | |
| 19 my @rels = @{$ontology->get_relationships_by_source_term($target_term, $rel_id)}; | |
| 20 | |
| 21 foreach my $r (@rels) { | |
| 22 # print "rel: ", $r->id(), "\n"; | |
| 23 print $r->head()->id(); | |
| 24 # print "tail: ", $r->tail()->id(), "\n\n"; | |
| 25 } | |
| 26 | |
| 27 exit 0; | |
| 28 __END__ | |
| 29 | |
| 30 | |
| 31 | |
| 32 | |
| 33 | |
| 34 |