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

Diff of /FigKernelScripts/check_starts_for_pegs.pl

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

revision 1.3, Wed Aug 31 21:20:47 2005 UTC revision 1.4, Wed Oct 12 21:09:52 2005 UTC
# Line 3  Line 3 
3  use FIG;  use FIG;
4  my $fig = new FIG;  my $fig = new FIG;
5    
6  my $usage   = "usage: check_starts_for_pegs [-v] > [old,new,conf,trans]";  my $usage   = "usage: check_starts_for_pegs [-v(erbose)] < list_of_FIDs > list_of_old-new-conf-trans";
7  my $verbose =  ((@ARGV > 0) && ($ARGV[0] =~ /-v/i));  my $verbose =  ((@ARGV > 0) && ($ARGV[0] =~ /-v/i));
8    
9  while (defined($_ = <STDIN>))  while (defined($_ = <STDIN>))

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3