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

Diff of /FigKernelScripts/build_protein_families.pl

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

revision 1.3, Tue Oct 25 17:41:33 2005 UTC revision 1.4, Mon Nov 28 04:31:07 2005 UTC
# Line 7  Line 7 
7  )  )
8      || die $usage;      || die $usage;
9    
10  &FIG::verify_dir("$FIG_Config::global/ProteinFamilies~");  &FIG::verify_dir("$FIG_Config::temp/ProteinFamilies");
11  &FIG::run("cp $FIG_Config::global/ProteinFamilies/local* $FIG_Config::global/ProteinFamilies~");  &FIG::verify_dir("$FIG_Config::temp/ProteinFamilies/previous");
12  &FIG::run("build_syn $sources /tmp/syn$$");  &FIG::run("cp $FIG_Config::global/ProteinFamilies/local* $FIG_Config::global/ProteinFamilies/id.map $FIG_Config::temp/ProteinFamilies/previous");
13  &FIG::run("make_fam_tabs $sources /tmp/syn$$ $FIG_Config::global/ProteinFamilies");  &FIG::run("build_syn $sources $FIG_Config::temp/ProteinFamilies/syn$$");
14    &FIG::run("make_fam_tabs $sources $FIG_Config::temp/ProteinFamilies/syn$$ $FIG_Config::global/ProteinFamilies");
15  &load_idmaps($sources);  &load_idmaps($sources);
16  unlink("/tmp/syn$$");  #unlink("/tmp/syn$$");
17  &FIG::run("load_protein_families");  &FIG::run("load_protein_families");
18    
19    
# Line 26  Line 27 
27   foreach my $file (@idmaps)   foreach my $file (@idmaps)
28   {   {
29    open(IN, $file) || die "can't open $idmaps";    open(IN, $file) || die "can't open $idmaps";
30    while (<IN>) {$_.="\n" unless ($_ =~ /\n$/); print OUT}    while (<IN>)
31    close IN;    {
32       my @line=split /\t/;
33       unless ($#line==1)
34       {
35        print STDERR "Error reading the data at $_ in $dir/$f/id.map\n";
36        next;
37       }
38       if (length($line[0])>32 || length($line[1])>32)
39       {
40        print STDERR "One of the entries in $_ from  $dir/$f/id.map is too long. Each piece can only be 32 characters\n";
41        next;
42       }
43       print OUT $_;
44      }
45   }   }
46  }  }
47    

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3