Skip to content
Snippets Groups Projects
Commit b94858a2 authored by Ian Holmes's avatar Ian Holmes
Browse files

Configured for new databases.

parent 290b313a
No related branches found
No related tags found
No related merge requests found
......@@ -13,15 +13,15 @@
use strict;
use DBI;
my $today = "2001-12-13";
my $today = "2002-02-20";
my $sdbh = DBI->connect( "DBI:mysql:host=ecs1d;database=homo_sapiens_core_120", "ensro", "");
my $tdbh = DBI->connect( "DBI:mysql:host=ecs1d;database=homo_sapiens_core_130", "ensro", "" );
my $sdbh = DBI->connect( "DBI:mysql:host=ecs1d;database=homo_sapiens_core_130", "ensro", "");
my $tdbh = DBI->connect( "DBI:mysql:host=ecs1e;database=ens_NCBI_28", "ensro", "" );
my $starttime = scalar( localtime() );
my $sth;
my $resultfile = "map_120_130.txt";
my $resultfile = "map_130_28.txt";
my %stable_id;
for my $table ( "gene_stable_id", "exon_stable_id",
......
......@@ -22,8 +22,8 @@ my $seqMatches = 0;
my $cmmaps = 0;
my $lasttime;
my $sdbh = DBI->connect( "DBI:mysql:host=ecs1d;database=homo_sapiens_core_120", "ensro", "");
my $tdbh = DBI->connect( "DBI:mysql:host=ecs1d;database=homo_sapiens_core_130", "ensro", "");
my $sdbh = DBI->connect( "DBI:mysql:host=ecs1d;database=homo_sapiens_core_130", "ensro", "");
my $tdbh = DBI->connect( "DBI:mysql:host=ecs1e;database=ens_NCBI_28", "ensro", "");
my $starttime = scalar( localtime() );
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment