contrib/seg/sort-segments.pl

   1 #!/usr/bin/perl
   2
   3 # this script will sort any table with the segment data type in its last column
   4
   5 while (<>) {
   6   chomp;
   7   push @rows, $_;
   8 }
   9
  10 foreach ( sort {
  11   @ar = split("\t", $a);
  12   $valA = pop @ar;
  13   $valA =~ s/[~<> ]+//g;
  14   @ar = split("\t", $b);
  15   $valB = pop @ar;
  16   $valB =~ s/[~<> ]+//g;
  17   $valA <=> $valB
  18 } @rows ) {
  19   print "$_\n";;
  20 }