File: sort-segments.pl

package info (click to toggle)
postgresql-9.1 9.1.15-0%2Bdeb8u1
  • links: PTS, VCS
  • area: main
  • in suites: jessie-kfreebsd
  • size: 109,092 kB
  • sloc: ansic: 575,877; sql: 43,887; yacc: 26,399; perl: 6,352; lex: 6,171; sh: 5,282; makefile: 3,772; asm: 65; sed: 15; python: 12
file content (20 lines) | stat: -rwxr-xr-x 345 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
#!/usr/bin/perl

# this script will sort any table with the segment data type in its last column

while (<>) {
  chomp;
  push @rows, $_;
}

foreach ( sort {
  @ar = split("\t", $a);
  $valA = pop @ar;
  $valA =~ s/[~<> ]+//g;
  @ar = split("\t", $b);
  $valB = pop @ar;
  $valB =~ s/[~<> ]+//g;
  $valA <=> $valB
} @rows ) {
  print "$_\n";;
}