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

Diff of /FigKernelScripts/make_subsystems_from_clusters.pl

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

revision 1.2, Fri Jun 3 15:22:30 2005 UTC revision 1.3, Fri Jun 3 23:09:10 2005 UTC
# Line 34  Line 34 
34          if (defined($_ = <CSS>) && ($_ =~ /^(\d+\.\d+)/))          if (defined($_ = <CSS>) && ($_ =~ /^(\d+\.\d+)/))
35          {          {
36              $main_genome = $1;              $main_genome = $1;
37              $namne = "$genome-$beg-$n-$end";              $name = "$main_genome-$beg-$n-$end";
38              &FIG::run("fill_in_roles $assignD/$name < $cssD/$css > $TmpD/with.roles");              &FIG::run("fill_in_roles $assignD/$name < $cssD/$css > $tmpD/with.roles");
39              open(TMP,"<$TmpD/with.roles") || die "could not open $tmpD/with.roles";              open(TMP,"<$tmpD/with.roles") || die "could not open $tmpD/with.roles";
40              $/ = "\n//\n";              $/ = "\n//\n";
41              if (defined($_ = <STDIN>) && defined($_ = <STDIN>))              if (defined($_ = <STDIN>) && defined($_ = <STDIN>))
42              {              {

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3