[Obo-svn-commit] SF.net SVN: obo:[2123] OBDAPI/trunk/scripts/obd-pheno-paper-runner.pl

[<cmu...@us...>]

Revision: 2123
          http://obo.svn.sourceforge.net/obo/?rev=2123&view=rev
Author:   cmungall
Date:     2008-09-14 03:08:41 +0000 (Sun, 14 Sep 2008)

Log Message:
-----------


Added Paths:
-----------
    OBDAPI/trunk/scripts/obd-pheno-paper-runner.pl

Added: OBDAPI/trunk/scripts/obd-pheno-paper-runner.pl
===================================================================
--- OBDAPI/trunk/scripts/obd-pheno-paper-runner.pl	                        (rev 0)
+++ OBDAPI/trunk/scripts/obd-pheno-paper-runner.pl	2008-09-14 03:08:41 UTC (rev 2123)
@@ -0,0 +1,23 @@
+#!/usr/bin/perl -w
+
+my $jdbc = "jdbc:postgresql://localhost:9999/obdp";
+
+my @genes = qw(NCBI_Gene:2035 NCBI_Gene:2132 NCBI_Gene:2138 NCBI_Gene:2235 NCBI_Gene:487 NCBI_Gene:5076 NCBI_Gene:6469 NCBI_Gene:6662 NCBI_Gene:6663 NCBI_Gene:7139 NCBI_Gene:7273);
+
+my @taxa = qw(NCBITaxon:7955 NCBITaxon:9606 NCBITaxon:10090);
+
+foreach my $gene (@genes) {
+    foreach my $tax (@taxa) {
+        run($gene,$tax);
+    }
+}
+print STDERR "Done!\n";
+
+sub run {
+    my $g = shift;
+    my $t = shift;
+    my $cmd = "obd-exec -d $jdbc --findsim --ic -M 8000 -O 50 --org $t $g > $g-vs-$t-IC.sim";
+    print STDERR "Cmd: $cmd\n";
+    print `$cmd`;
+}
+


Property changes on: OBDAPI/trunk/scripts/obd-pheno-paper-runner.pl
___________________________________________________________________
Added: svn:executable
   + *


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.