Mercurial > repos > iuc > onto_tk_term_id_vs_term_def
comparison 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 |
comparison
equal
deleted
inserted
replaced
-1:000000000000 | 0:4d1fb16ff86a |
---|---|
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 |