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

Diff of /FigKernelScripts/find_gaps.pl

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

revision 1.2, Thu Jun 8 17:43:12 2006 UTC revision 1.3, Mon Aug 7 10:49:16 2006 UTC
# Line 56  Line 56 
56  $regions = &load_regions(@tbls);  $regions = &load_regions(@tbls);
57  # die Dumper($features);  # die Dumper($features);
58    
59  foreach $contig (keys %$regions)  $gap_num = 0;
60    foreach $contig (sort keys %$regions)
61  {  {
62      $x = $regions->{$contig};      $x = $regions->{$contig};
63    
# Line 70  Line 71 
71          $gap_len = $gap_end - $gap_beg + 1;          $gap_len = $gap_end - $gap_beg + 1;
72          $gap_loc = "$contig\_$gap_beg\_$gap_end";          $gap_loc = "$contig\_$gap_beg\_$gap_end";
73    
74          print "fig|$org_id.gap.".($i+1) . "\t$gap_loc\n";          print "fig|$org_id.gap.".(++$gap_num) . "\t$gap_loc\n";
75      }      }
76  }  }
77  print STDERR "$this_tool done\n\n";  print STDERR "\n$this_tool done\n\n";
78  exit(0);  exit(0);
79    
80    

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3