[Bio] / FortyEight / rp_auto_assign.pl Repository:
ViewVC logotype

Diff of /FortyEight/rp_auto_assign.pl

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

revision 1.1, Wed Nov 22 21:01:42 2006 UTC revision 1.4, Fri Jun 8 19:20:20 2007 UTC
# Line 44  Line 44 
44      close(PROP);      close(PROP);
45  }  }
46    
47  my @sims = <$jobdir/sims.job/sims.proc/*>;  my $simfile = "$jobdir/rp/$genome/expanded_similarities";
 my $simtmp;  
 my $simfile;  
 if (@sims == 0)  
 {  
     &fatal("No sims found in $jobdir/sims.job/sims.proc\n");  
 }  
 elsif (@sims == 1)  
 {  
     $simfile = shift @sims;  
 }  
 elsif (@sims > 1)  
 {  
     my $d = "/scratch";  
     if (! -d $d)  
     {  
         $d = "/tmp";  
     }  
     $simtmp = "$d/simtmp.$$";  
     system("cat @sims > $simtmp");  
     $simfile = $simtmp;  
 }  
48    
49  open(TBL, "<$tbl") or &fatal("Cannot open tbl file $tbl: $!");  open(TBL, "<$tbl") or &fatal("Cannot open tbl file $tbl: $!");
50    
51  my $cmd = "$FIG_Config::bin/auto_assign sims=$simfile > $jobdir/rp/$genome/auto_assign.functions";  my $cmd = "$FIG_Config::bin/auto_assign sims=$simfile > $jobdir/rp/$genome/proposed_non_ff_functions";
52  print "running $cmd\n";  print "running $cmd\n";
53  open(AA, "| $cmd")  open(AA, "| $cmd")
54          or &fatal("aa failed: $!");          or &fatal("aa failed: $!");

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3