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

View of /FigKernelScripts/sort_sets_of_pegs.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (download) (as text) (annotate)
Mon Nov 19 23:01:14 2012 UTC (6 years, 11 months ago) by overbeek
Branch: MAIN
CVS Tags: rast_rel_2014_0729, rast_rel_2014_0912, HEAD
sort a set of peg sets

use strict;
use SeedUtils;

my @sets = sort { &SeedUtils::by_fig_id($a->[0],$b->[0]) } map { chop; [sort { &SeedUtils::by_fig_id($a,$b) } split(/\t/,$_)] } <STDIN>;
foreach $_ (@sets)
{
    print join("\t",@$_),"\n";
}

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3