[Bio] / DrugTargets / load_attributes-drugtargets.pl Repository:
ViewVC logotype

View of /DrugTargets/load_attributes-drugtargets.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.3 - (download) (as text) (annotate)
Wed Aug 31 15:31:29 2005 UTC (14 years, 3 months ago) by hwang
Branch: MAIN
CVS Tags: HEAD
Changes since 1.2: +15 -10 lines
Changed files to incorporate fangfang's and kaitlyn's script.
ShowTable.pl
	Shows and edits the tables in the archives

#!/usr/bin/perl

use FIG_Config;
use FIG;
use strict;

my $fig = new FIG;

my $dbf = $fig->{_dbf};
$dbf->drop_table( tbl => "saureusdt" );

$dbf->create_table( tbl => "saureusdt",
		    flds => "pegId varchar(50), category varchar(250), geneId varchar(100), url varchar(250)");

my $dir ="/Users/hwang/FIGdisk/dist/releases/current/DrugTargetsData";    
print "$dir\n";

if (! -d $dir)
{
    warn "Drug targets directory $dir does not exist\n";
    exit 0;
}

my $dataFile = "$dir/saureusDrugTarget.txt";
if (! -f $dataFile)
{
    warn "Drug targets file $dataFile not found\n";
    exit 0;
}

my $result = $dbf->load_table( tbl => "saureusdt",
			      file => $dataFile);
          




MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3