[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.2, Thu Oct 11 20:16:20 2007 UTC revision 1.3, Wed Oct 17 15:32:29 2007 UTC
# Line 2  Line 2 
2  my $genome = shift(@ARGV);  my $genome = shift(@ARGV);
3  my $date = localtime();  my $date = localtime();
4    
5  opendir(DIR,$jobdir."/$genome");  opendir(DIR,$jobdir."/rp/$genome");
6    
7  if(! -d "$jobdir/rp/$genome/attributes"){  if(! -d "$jobdir/rp/$genome/attributes"){
8      `mkdir $jobdir/rp/$genome/attributes`;      `mkdir $jobdir/rp/$genome/attributes`;
# Line 15  Line 15 
15  foreach $file (@files){  foreach $file (@files){
16      if ($file =~/(\d+.\d+.peg.\d+).CELLO_result/){      if ($file =~/(\d+.\d+.peg.\d+).CELLO_result/){
17          $peg = $1;          $peg = $1;
18          open(IN,"$jobdir/$genome/$file");          open(IN,"$jobdir/rp/$genome/$file");
19          my $score;          my $score;
20          my $location;          my $location;
21          while($_ = <IN>){          while($_ = <IN>){
# Line 36  Line 36 
36      }      }
37  }  }
38    
39  `rm $jobdir/$genome/*.CELLO_result`;  `rm $jobdir/rp/$genome/*.CELLO_result`;

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3