[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.1, Thu Jun 1 22:18:21 2006 UTC revision 1.2, Thu Jun 8 17:43:12 2006 UTC
# Line 28  Line 28 
28  use constant OTHERS =>  1;  use constant OTHERS =>  1;
29    
30  $0 =~ m/([^\/]+)$/;   $this_tool = $1;  $0 =~ m/([^\/]+)$/;   $this_tool = $1;
31  $usage = "$this_tool  $org_id  contigs  tbl_1 tbl_2 ... > gap_tbl";  $usage = "$this_tool  org_id  contigs  tbl_1 tbl_2 ... > gap_tbl";
32    
33  $trouble = 0;  if ((not @ARGV) || ($ARGV[0] =~ m/-h(elp)?/)) {
34        die "\n   usage: $usage\n\n";
35    }
36    
37    $trouble = 0;
38  ($org_id = shift @ARGV) || (($trouble = 1) && (warn "No Org-ID given"));  ($org_id = shift @ARGV) || (($trouble = 1) && (warn "No Org-ID given"));
39    
40  for ($i=0; $i < @ARGV; ++$i)  for ($i=0; $i < @ARGV; ++$i)

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3