Mercurial > repos > erick-antezana > onto-toolkit
comparison onto-toolkit/tools/ontology/get_intersection_ontology_from.pl @ 0:4484575e4186
Migrated tool version 0.1 from old tool shed archive to new tool shed repository
author | erick-antezana |
---|---|
date | Tue, 07 Jun 2011 17:51:45 -0400 |
parents | |
children |
comparison
equal
deleted
inserted
replaced
-1:000000000000 | 0:4484575e4186 |
---|---|
1 #!/usr/bin/perl -w | |
2 | |
3 use OBO::Parser::OBOParser; | |
4 use OBO::Util::Ontolome; | |
5 | |
6 | |
7 use Carp; | |
8 use strict; | |
9 use warnings; | |
10 | |
11 my @input_files = @ARGV; | |
12 | |
13 my $parse_ont = OBO::Parser::OBOParser->new(); | |
14 my $ome = OBO::Util::Ontolome->new(); | |
15 | |
16 my @input_ontos; | |
17 foreach(@input_files) | |
18 { | |
19 my $onto = $parse_ont->work($_) or warn "ontology not defined, check input files\n"; | |
20 push @input_ontos, $onto; | |
21 } | |
22 | |
23 my $intersection_ontology = $ome->intersection(@input_ontos); | |
24 $intersection_ontology->export(\*STDOUT, "obo"); | |
25 | |
26 exit 0; | |
27 |