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

Diff of /FortyEight/rp_make_CELLO_attributes.pl

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

revision 1.1, Thu Oct 11 17:03:49 2007 UTC revision 1.2, Thu Oct 11 20:16:20 2007 UTC
# Line 3  Line 3 
3  my $date = localtime();  my $date = localtime();
4    
5  opendir(DIR,$jobdir."/$genome");  opendir(DIR,$jobdir."/$genome");
6  open(CELLO,">$jobdir/rp/$genome/CELLO_attributes_for_$genome.txt");  
7    if(! -d "$jobdir/rp/$genome/attributes"){
8        `mkdir $jobdir/rp/$genome/attributes`;
9    }
10    
11    open(CELLO,">$jobdir/rp/$genome/attributes/CELLO_attributes_for_$genome.txt");
12    
13  print CELLO "$genome\tCELLO_computed_against_all_pegs\t$date\n";  print CELLO "$genome\tCELLO_computed_against_all_pegs\t$date\n";
14  @files = readdir(DIR);  @files = readdir(DIR);

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3