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

Diff of /FigKernelScripts/load_sims.pl

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

revision 1.1, Sat May 7 20:57:47 2005 UTC revision 1.2, Sat May 7 21:33:31 2005 UTC
# Line 7  Line 7 
7    
8  use DBrtns;  use DBrtns;
9    
10    $usage = "usage: load_sims SimsDir";
11    ($dir = shift @ARGV)
12        || die $usage;
13    
14  my $dbf = $fig->{_dbf};  my $dbf = $fig->{_dbf};
15    
# Line 14  Line 17 
17  $dbf->create_table( tbl => 'condensed_sims',  $dbf->create_table( tbl => 'condensed_sims',
18                      flds => "peg1 varchar(32), peg2 varchar(32), iden varchar(6), psc varchar(10), paraN INTEGER"                      flds => "peg1 varchar(32), peg2 varchar(32), iden varchar(6), psc varchar(10), paraN INTEGER"
19                    );                    );
20  opendir(SIMS,"/Users/fig/Ross/BigFC/SimTab") || die "aborted";  opendir(SIMS,$dir) || die "$dir does not exist";
21  @files = grep { $_ !~ /^\./ } readdir(SIMS);  @files = grep { $_ !~ /^\./ } readdir(SIMS);
22  closedir(SIMS);  closedir(SIMS);
23  foreach $file (@files)  foreach $file (@files)
24  {  {
25      $dbf->load_table( tbl => "condensed_sims",      $dbf->load_table( tbl => "condensed_sims",
26                        file => "/Users/fig/Ross/BigFC/SimTab/$file" );                        file => "$dir/$file" );
27  }  }
28  $dbf->create_index( idx  => "condensed_sims_ix",  $dbf->create_index( idx  => "condensed_sims_ix",
29                      tbl  => "condensed_sims",                      tbl  => "condensed_sims",

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3