[Nelsonlab-cmts] dev-boconnor/project_logic_analysis/scripts pull_out_top_profiles.pl,NONE,1.1

[<boc...@su...>]

Update of /cvsroot/dev-boconnor/project_logic_analysis/scripts
In directory sumo.genetics.ucla.edu:/tmp/cvs-serv7391/scripts

Added Files:
	pull_out_top_profiles.pl 
Log Message:
Updates


--- NEW FILE: pull_out_top_profiles.pl ---
use strict;
use Data::Dumper;

my $count = shift;
my $data = {};

while(<STDIN>) {
  chomp;
  my @tokens = split /\t/;
  $data->{$tokens[7]}{$tokens[0]} = 1;
}

my @stability = sort {$a <=> $b } keys %{$data};

my $i = 0;
while ($i < $count) {
  my $stab = pop @stability;
  print "Stability = $stab\n";
  print Dumper $data->{$stab};
  $i++;
}