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

Annotation of /FigKernelScripts/load_sims.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (view) (download) (as text)

1 : overbeek 1.1
2 :    
3 :     # -*- perl -*-
4 :    
5 :     use FIG;
6 :     my $fig = new FIG;
7 :    
8 :     use DBrtns;
9 :    
10 :    
11 :     my $dbf = $fig->{_dbf};
12 :    
13 :     $dbf->drop_table( tbl => "condensed_sims" );
14 :     $dbf->create_table( tbl => 'condensed_sims',
15 :     flds => "peg1 varchar(32), peg2 varchar(32), iden varchar(6), psc varchar(10), paraN INTEGER"
16 :     );
17 :     opendir(SIMS,"/Users/fig/Ross/BigFC/SimTab") || die "aborted";
18 :     @files = grep { $_ !~ /^\./ } readdir(SIMS);
19 :     closedir(SIMS);
20 :     foreach $file (@files)
21 :     {
22 :     $dbf->load_table( tbl => "condensed_sims",
23 :     file => "/Users/fig/Ross/BigFC/SimTab/$file" );
24 :     }
25 :     $dbf->create_index( idx => "condensed_sims_ix",
26 :     tbl => "condensed_sims",
27 :     type => "btree",
28 :     flds => "peg1" );
29 :    
30 :     $dbf->vacuum_it("condensed_sims");
31 :    

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3