Added counts for obsolete terms and total number of terms

svn path=/; revision=435

diff --git a/interactome_scripts/obo_count_non_obolete_terms.pl b/interactome_scripts/obo_count_non_obolete_terms.pl
index e03006ff2bcf8623ad31f296a5377d8eeb4cfe19..1dfef0e6077a133ab77d8e59f420228e999f27f5 100755 (executable)
--- a/interactome_scripts/obo_count_non_obolete_terms.pl
+++ b/interactome_scripts/obo_count_non_obolete_terms.pl
@@ -39,6 +39,8 @@ my $obo_terms = $ont->get_all_nodes;
 # hash to store obsolete terms
 my %obs_terms_hash;
 my $good_terms_count = 0;
+my $bad_terms_count =0;
+my $total_terms_count = 0;
 
 
 foreach my $term (@$obo_terms) {
@@ -46,9 +48,13 @@ foreach my $term (@$obo_terms) {
                my $id = $term->acc;
                my $name = $term->name;
                $obs_terms_hash{$id} = $name;
+               $bad_terms_count++;
        }else{
                        $good_terms_count++;
        }
+       $total_terms_count++;
 }
 
 print "Good terms count = $good_terms_count\n";
+print "Obsolete terms count = $bad_terms_count\n";
+print "Total number of terms = $total_terms_count\n";