The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
EASR / ONTO-PERL-1.44 / doc / example07.html 
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1"/>
<title>Finding the total number of terms and relationships in a given ontology</title>
</head>
<body>

<h2>Basic metrics in an ontology</h2>
	
<ol>
	<li><a href="#1">Get the total number of terms and relationships in a given ontology.</a></li>

</ol>
	
	<ol>
	<li> <b><a name="1">Get the total number of terms and relationships in a given ontology:</a></b>
		<pre>
		
			use OBO::Parser::OBOParser;
			
			my $my_parser = OBO::Parser::OBOParser->new();
			my $ontology = $my_parser->work("my_obo_ontology.obo");
			
			print "My ontology has ", $onto->get_number_of_terms(), " terms\n";
			
			print "My ontology has ", $onto->get_number_of_relationships(), " relationships\n";
			
		</pre>
	</li>
	</ol>
</body>
</html>