[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.2, Fri Nov 24 20:44:08 2006 UTC revision 1.3, Wed Nov 29 15:19:19 2006 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/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    

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3