From 2691614aedc192fb21df150646968a3200f24516 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Andreas=20Kusalananda=20K=C3=A4h=C3=A4ri?=
<ak4@sanger.ac.uk>
Date: Thu, 10 Feb 2011 10:54:14 +0000
Subject: [PATCH] Count synonyms written. Slight changes to output.
---
misc-scripts/ontology/scripts/load_OBO_file.pl | 14 ++++++++++----
1 file changed, 10 insertions(+), 4 deletions(-)
diff --git a/misc-scripts/ontology/scripts/load_OBO_file.pl b/misc-scripts/ontology/scripts/load_OBO_file.pl
index 048f1a00ae..8c83357823 100755
--- a/misc-scripts/ontology/scripts/load_OBO_file.pl
+++ b/misc-scripts/ontology/scripts/load_OBO_file.pl
@@ -133,9 +133,9 @@ sub write_subset {
sub write_term {
my ( $dbh, $terms, $subsets, $namespaces ) = @_;
- print("Writing to 'term' table...\n");
+ print("Writing to 'term' and 'synonym' tables...\n");
- $dbh->do("LOCK TABLE term, synonym WRITE");
+ $dbh->do("LOCK TABLES term WRITE, synonym WRITE");
my $statement =
"INSERT INTO term "
@@ -148,7 +148,8 @@ sub write_term {
my $syn_sth = $dbh->prepare($syn_stmt);
my $id;
- my $count = 0;
+ my $count = 0;
+ my $syn_count = 0;
local $SIG{ALRM} = sub {
printf( "\t%d entries, %d to go...\n",
@@ -189,6 +190,8 @@ sub write_term {
$syn_sth->bind_param( 2, $syn, SQL_VARCHAR );
$syn_sth->execute();
+
+ ++$syn_count;
}
++$count;
@@ -196,9 +199,12 @@ sub write_term {
alarm(0);
$dbh->do("OPTIMIZE TABLE term");
+ $dbh->do("OPTIMIZE TABLE synonym");
$dbh->do("UNLOCK TABLES");
- printf( "\tWrote %d entries\n", $count );
+ printf(
+ "\tWrote %d entries into 'term' and %d entries into 'synonym'\n",
+ $count, $syn_count );
} ## end sub write_term
#-----------------------------------------------------------------------
--
GitLab