Ещё немного поисследовал проблему... Оказалось, что "SIMILAR TO" очень капризен не только к сложным выражениям, но и к символам, отсутствующим в лидирующих вариациях паттернов, указанных в выражении через "|". Так например простое выражение:
'([a-zA-Z0-9]{1,63})|([a-zA-Z0-9][a-zA-Z0-9-]{0,61}[a-zA-Z0-9])'
на строку 'local-host' будет зверски тупить, тогда как:
'([a-zA-Z0-9][a-zA-Z0-9-]{0,61}[a-zA-Z0-9])|([a-zA-Z0-9]{1,63})'
отработает ожидаемо быстро. Если же вовсе встретиться незнакомый паттернам символ в строке из более чем восьми символов, можно смело килять процесс сервера, так как ФБ затупит на сотни, а то и тысячи секунд и его невозможно будет остановить штатно через запуск/остановку служб.
В результате, приходится не только разбивать строку на удобоваримые части, но и перед началом их проверки исключить возможность появления незнакомых паттернам символов. Для проверки корректности строки с FQDN написал функцию (может ещё кому пригодится):
Национальные имена доменов не поддерживаются
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
SET TERM ^;
CREATE OR ALTER FUNCTION FQDN__CHECK
(
fqdName ASCII_STRING DEFAULT NULL
)
RETURNS BOOLEAN
AS
DECLARE VARIABLE dot INT64;
DECLARE VARIABLE dotPart ASCII_STRING;
DECLARE VARIABLE dotTail ASCII_STRING DEFAULT NULL;
DECLARE VARIABLE regEx ASCII_STRING
DEFAULT '([a-zA-Z0-9][a-zA-Z0-9-]{0,61}[a-zA-Z0-9])|([a-zA-Z0-9]{1,63})'
BEGIN
IF (:fqdName IS NULL) THEN RETURN NULL;
IF (NOT :fqdName SIMILAR TO '[a-zA-Z0-9-.]{1,255}') THEN RETURN FALSE;
dotTail = fqdName;
WHILE (:dotTail IS NOT NULL) DO
BEGIN
dot = Position('.', dotTail);
IF (:dot = 0) THEN
BEGIN
dotPart = dotTail;
dotTail = NULL;
END
ELSE
BEGIN
dotPart = Left(dotTail, dot - 1);
IF (Char_Length(:dotTail) = :dot) THEN
dotTail = NULL;
ELSE
dotTail = Substring(dotTail FROM dot + 1);
END
IF (NOT :dotPart SIMILAR TO :regEx) THEN RETURN FALSE;
END
RETURN TRUE;
END^
SET TERM ;^
