[Bio] / FigKernelScripts / load_coupling.pl Repository:
ViewVC logotype

Diff of /FigKernelScripts/load_coupling.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1, Sun May 15 11:49:37 2005 UTC revision 1.3, Wed Jun 1 01:18:50 2005 UTC
# Line 4  Line 4 
4  use FIG;  use FIG;
5  my $fig = new FIG;  my $fig = new FIG;
6    
7  $usage = "usage: load_coupling PCHdir Scores";  # usage: load_coupling
8    
9  (  $pchD   = "$FIG_Config::fig/CouplingData/PCHs";
10   ($pchD   = shift @ARGV) && (-d $pchD) &&  $scores = "$FIG_Config::fig/CouplingData/scores";
  ($scores = shift @ARGV) && (-s $scores)  
 )  
     || die $usage;  
11    
12  use DBrtns;  use DBrtns;
13    
14    if (! ((-d $pchD) && (-s $scores))) { exit }
15    
16  my $dbf = $fig->{_dbf};  my $dbf = $fig->{_dbf};
17    
# Line 33  Line 31 
31  $dbf->drop_table( tbl => "pchs" );  $dbf->drop_table( tbl => "pchs" );
32  $dbf->create_table( tbl => 'pchs',  $dbf->create_table( tbl => 'pchs',
33                      flds => "peg1 varchar(32), peg2 varchar(32), peg3 varchar(32), peg4 varchar(32),                      flds => "peg1 varchar(32), peg2 varchar(32), peg3 varchar(32), peg4 varchar(32),
34                               inden13 varchar(6), inden24 varchar(6), para3  integer, para4 integer"                               inden13 varchar(6), inden24 varchar(6), para3  integer, para4 integer, rep char(1)"
35                    );                    );
36    
37  opendir(PCHD,$pchD) || die "could not open $pchD";  opendir(PCHD,$pchD) || die "could not open $pchD";

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.3

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3