mirror of
https://git.postgresql.org/git/postgresql.git
synced 2024-12-21 08:29:39 +08:00
24 lines
342 B
Perl
Executable File
24 lines
342 B
Perl
Executable File
#!/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";
|
|
}
|