/
githubmirror
/
postgres
Обзор
Документация
Войти
/
githubmirror
/
postgres
Код
Запросы
0
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
contrib/seg/seg-validate.pl
56 строк
846 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 use strict; use warnings FATAL => 'all'; my $integer = '[+-]?[0-9]+'; my $real = '[+-]?[0-9]+\.[0-9]+'; my $RANGE = '(\.\.)(\.)?'; my $PLUMIN = q(\'\+\-\'); my $FLOAT = "(($integer)|($real))([eE]($integer))?"; my $EXTENSION = '<|>|~'; my $boundary = "($EXTENSION)?$FLOAT"; my $deviation = $FLOAT; my $rule_1 = $boundary . $PLUMIN . $deviation; my $rule_2 = $boundary . $RANGE . $boundary; my $rule_3 = $boundary . $RANGE; my $rule_4 = $RANGE . $boundary; my $rule_5 = $boundary; print "$rule_5\n"; while (<>) { # s/ +//g; if (/^($rule_1)$/) { print; } elsif (/^($rule_2)$/) { print; } elsif (/^($rule_3)$/) { print; } elsif (/^($rule_4)$/) { print; } elsif (/^($rule_5)$/) { print; } else { print STDERR "error in $_\n"; } }