view get_terms_by_relationship_type.pl @ 0:b2471db454a0 draft default tip

planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/onto-toolkit commit 9422f839ae354d4c26b02d4494abdeaad518d0e6

#!/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 Encode;

use OBO::Parser::OBOParser;

my $my_parser     = OBO::Parser::OBOParser->new();
my $ontology      = $my_parser->work(shift(@ARGV));
my $rel_type_name = shift(@ARGV);
my @relationships = @{$ontology->get_relationships()};

foreach my $r (@relationships) {
	if($r->type() eq $rel_type_name){
		print $r->tail()->id(), "\t";
		print $r->type(),"\t";
		print $r->head()->id(), "\n";
	}
}

exit 0;

__END__