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

Diff of /FigKernelScripts/index_anno_clearinghouse.pl

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

revision 1.1, Thu Jul 19 16:02:14 2007 UTC revision 1.2, Wed Sep 5 21:12:21 2007 UTC
# Line 12  Line 12 
12  # orgname.btree:  numeric id => orgname  # orgname.btree:  numeric id => orgname
13  #  #
14    
15  my $usage = "build_anno_clearinghouse NR-directory SEED-directory target-directory";  my $usage = "index_anno_clearinghouse SEED-directory target-directory";
16    
17  @ARGV == 3 or die  $usage;  @ARGV == 2 or die  $usage;
18    
 my $dir_nr = shift;  
19  my $dir_seed = shift;  my $dir_seed = shift;
20  my $dir_target = shift;  my $dir_target = shift;
21    
22  &FIG::verify_dir($dir_target);  &FIG::verify_dir($dir_target);
23    
24    my $dir_nr = "$dir_target/NR";
25    
26  my %NR_files;  my %NR_files;
27    
28  #  #
# Line 47  Line 48 
48  -f $func_file and unlink($func_file);  -f $func_file and unlink($func_file);
49  -f $org_file and unlink($org_file);  -f $org_file and unlink($org_file);
50  -f $orgname_file and unlink($orgname_file);  -f $orgname_file and unlink($orgname_file);
51    -f $orgnum_file and unlink($orgnum_file);
52  my %func;  my %func;
53  my $func_tie = tie %func, 'DB_File', $func_file, O_RDWR | O_CREAT, 0666, $DB_BTREE;  my $func_tie = tie %func, 'DB_File', $func_file, O_RDWR | O_CREAT, 0666, $DB_BTREE;
54  $func_tie or die "Cannot create bree $func_file: $!\n";  $func_tie or die "Cannot create bree $func_file: $!\n";

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3