/
githubmirror
/
postgres
Обзор
Документация
Войти
/
githubmirror
/
postgres
Код
Запросы
0
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
contrib/seg/sort-segments.pl
30 строк
468 B
Bruce Momjian
Update copyright for 2026
01 янв 2026, 21:24
01 янв 2026, 21:24
451c439
Код
Авторство
О чём код?
#!/usr/bin/perl # Copyright (c) 2021-2026, PostgreSQL Global Development Group # this script will sort any table with the segment data type in its last column use strict; use warnings FATAL => 'all'; my @rows; while (<>) { chomp; push @rows, $_; } foreach ( sort { my @ar = split("\t", $a); my $valA = pop @ar; $valA =~ s/[~<> ]+//g; @ar = split("\t", $b); my $valB = pop @ar; $valB =~ s/[~<> ]+//g; $valA <=> $valB } @rows) { print "$_\n"; }