contrib/seg/sort-segments.pl

   1 #!/usr/bin/perl
   2
   3 # Copyright (c) 2021-2022, PostgreSQL Global Development Group
   4
   5 # this script will sort any table with the segment data type in its last column
   6
   7 use strict;
   8 use warnings;
   9
  10 my @rows;
  11
  12 while (<>)
  13 {
  14         chomp;
  15         push @rows, $_;
  16 }
  17
  18 foreach (
  19         sort {
  20                 my @ar = split("\t", $a);
  21                 my $valA = pop @ar;
  22                 $valA =~ s/[~<> ]+//g;
  23                 @ar = split("\t", $b);
  24                 my $valB = pop @ar;
  25                 $valB =~ s/[~<> ]+//g;
  26                 $valA <=> $valB
  27         } @rows)
  28 {
  29         print "$_\n";
  30 }