[Bio] / FigKernelScripts / p3-find-couples.pl Repository:
ViewVC logotype

Diff of /FigKernelScripts/p3-find-couples.pl

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

revision 1.1, Tue Aug 8 19:20:16 2017 UTC revision 1.2, Fri Aug 11 01:13:02 2017 UTC
# Line 168  Line 168 
168  # Sort the couples and output them.  # Sort the couples and output them.
169  my @couples = sort { $couples{$b} <=> $couples{$a} } grep { $couples{$_} >= $minCount } keys %couples;  my @couples = sort { $couples{$b} <=> $couples{$a} } grep { $couples{$_} >= $minCount } keys %couples;
170  for my $couple (@couples) {  for my $couple (@couples) {
171      print "$couple\t$couples{$couple}\n";      P3Utils::print_cols([$couple, $couples{$couple}]);
172  }  }

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3