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

View of /FigKernelScripts/load_sims.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (download) (as text) (annotate)
Sat May 7 20:57:47 2005 UTC (15 years ago) by overbeek
Branch: MAIN
add routines for BigFC


# -*- perl -*-

use FIG;
my $fig = new FIG;

use DBrtns;


my $dbf = $fig->{_dbf};

$dbf->drop_table( tbl => "condensed_sims" );
$dbf->create_table( tbl => 'condensed_sims',
		    flds => "peg1 varchar(32), peg2 varchar(32), iden varchar(6), psc varchar(10), paraN INTEGER"
		  );
opendir(SIMS,"/Users/fig/Ross/BigFC/SimTab") || die "aborted";
@files = grep { $_ !~ /^\./ } readdir(SIMS);
closedir(SIMS);
foreach $file (@files)
{
    $dbf->load_table( tbl => "condensed_sims",
		      file => "/Users/fig/Ross/BigFC/SimTab/$file" );
}
$dbf->create_index( idx  => "condensed_sims_ix",
		    tbl  => "condensed_sims",
		    type => "btree",
		    flds => "peg1" );

$dbf->vacuum_it("condensed_sims");


MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3