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

Diff of /FigKernelScripts/salvage_subsystem_rows.pl

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

revision 1.1, Thu Nov 3 21:29:49 2005 UTC revision 1.2, Mon Nov 7 21:22:31 2005 UTC
# Line 1  Line 1 
1  use FIG;  use FIG;
2  my $fig = new FIG;  my $fig = new FIG;
3    
4  my $usage = "usage: salvage_subsystem_rows From To Mapping";  my $usage = "usage: salvage_subsystem_rows From To Maps";
5    
6  # Foreach Subsystem in To (a directory of subsystems), if Subsystem is in From,  # Foreach Subsystem in To (a directory of subsystems), if Subsystem is in From,
7  # then each row representing an organism in Mapping will be "salvaged" and added  # then each row representing an organism in Mapping will be "salvaged" and added
# Line 15  Line 15 
15  )  )
16      || die $usage;      || die $usage;
17    
18  foreach $_ (`cat $mapping`)  foreach $_ (`cat $mapping/*`)
19  {  {
20      if ($_ =~ /^(fig\|(\d+\.\d+)\.peg\.\d+)\t(fig\|(\d+\.\d+)\.peg\.(\d+))$/)      if ($_ =~ /^(fig\|(\d+\.\d+)\.peg\.\d+)\t(fig\|(\d+\.\d+)\.peg\.(\d+))$/)
21      {      {

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3