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

Diff of /FigKernelScripts/find_essential_reactions.pl

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

revision 1.1, Tue Jul 31 16:07:23 2007 UTC revision 1.2, Tue Jul 31 19:47:02 2007 UTC
# Line 65  Line 65 
65      #determine if we have flux!      #determine if we have flux!
66      my $flux;      my $flux;
67      open(OUT,$filebase."test.output");      open(OUT,$filebase."test.output");
68      while(<FLUX>)      while(<OUT>)
69      {      {
70          if($_ =~ /^Objective/)          if($_ =~ /^Objective/)
71          {          {
72              my @temp = split " ",$_;              my @temp = split " ",$_;
73              chomp @temp;              chomp @temp;
             if($temp[3] > 0)  
             {  
74                  $flux_values{$current_reaction} = $temp[3];                  $flux_values{$current_reaction} = $temp[3];
75              }              }
76          }          }
     }  
77      close(OUT);      close(OUT);
   
78  }  }
79  open(OUT,">".$filebase."essential_reactions.txt");  open(OUT,">".$filebase."essential_reactions.txt");
80  foreach (sort keys %flux_values)  foreach (sort keys %flux_values)

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3