[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.8, Wed Mar 16 20:05:00 2011 UTC revision 1.9, Wed Mar 16 20:09:30 2011 UTC
# Line 64  Line 64 
64  if (! $rc) { print STDERR $usage; exit }  if (! $rc) { print STDERR $usage; exit }
65    
66  my @lines = map { chomp; [split(/\t/,$_)] } <STDIN>;  my @lines = map { chomp; [split(/\t/,$_)] } <STDIN>;
67    (@lines > 0) || exit;
68  if (! $column)  { $column = @{$lines[0]} }  if (! $column)  { $column = @{$lines[0]} }
69  my @fids = map { $_->[$column-1] } @lines;  my @fids = map { $_->[$column-1] } @lines;
70    

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3