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

Diff of /FigKernelScripts/svr_function_of.pl

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

revision 1.6, Wed Aug 11 18:08:28 2010 UTC revision 1.7, Tue Oct 5 15:49:35 2010 UTC
# Line 55  Line 55 
55  use SeedUtils;  use SeedUtils;
56  use SAPserver;  use SAPserver;
57  my $sapObject = SAPserver->new();  my $sapObject = SAPserver->new();
58    use Getopt::Long;
59    
60  my $usage = "usage: svr_function_of [-c column]";  my $usage = "usage: svr_function_of [-c column]";
61    
62  my $column;  my $column;
63  while ($ARGV[0] && ($ARGV[0] =~ /^-/))  my $rc  = GetOptions('c=i' => \$column);
64  {  if (! $rc) { print STDERR $usage; exit }
     $_ = shift @ARGV;  
     if    ($_ =~ s/^-c//) { $column       = ($_ || shift @ARGV) }  
     else                  { die "Bad Flag: $_" }  
 }  
65    
66  my @lines = map { chomp; [split(/\t/,$_)] } <STDIN>;  my @lines = map { chomp; [split(/\t/,$_)] } <STDIN>;
67  if (! $column)  { $column = @{$lines[0]} }  if (! $column)  { $column = @{$lines[0]} }

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3