CREATE OR REPLACE PROCEDURE hello AS
BEGIN
    HTP.HTMLOPEN;
    HTP.HEADOPEN;
    HTP.TITLE('Привет');
    HTP.HEADCLOSE;
    HTP.BODYOPEN;
    HTP.HEADER(1, 'Digital Q.DataBase');
    HTP.PRINT('Добро пожаловать');
    HTP.BODYCLOSE;
    HTP.HTMLCLOSE;
END;

-- Проверка строки на соответствие шаблонам
DECLARE
    v_simple owa_util.vc_arr;
    v_complex owa_util.vc_arr;
    v_result BOOLEAN;
BEGIN
    v_simple(1) := '%test%';
    v_complex(1) := '^[A-Z]+$';
    
    v_result := owa_match.match_pattern(
        p_string => 'TEST',
        p_simple_pattern => v_simple,
        p_complex_pattern => v_complex,
        p_use_special_chars => TRUE
    );
    
    IF v_result THEN
        DBMS_OUTPUT.PUT_LINE('Строка соответствует шаблону');
    END IF;
END;

-- Проверка, соответствует ли строка регулярному выражению
DECLARE
    v_result BOOLEAN;
BEGIN
    v_result := OWA_PATTERN.MATCH('abc123', '[a-z]+[0-9]+');
    IF v_result THEN
        DBMS_OUTPUT.PUT_LINE('Строка соответствует шаблону');
    END IF;
END;

-- Преобразование строки в верхний регистр
DECLARE
    v_text VARCHAR2(100) := 'digital q.database';
BEGIN
    v_text := OWA_TEXT.UPPER(v_text);
    DBMS_OUTPUT.PUT_LINE(v_text);  -- Результат: DIGITAL Q.DATABASE
END;

-- Удаление лишних пробелов и преобразование регистра
DECLARE
    v_text VARCHAR2(100) := '  hello world  ';
BEGIN
    v_text := OWA_TEXT.TRIM(v_text);
    v_text := OWA_TEXT.UPPER(v_text);
    DBMS_OUTPUT.PUT_LINE(v_text);  -- Результат: HELLO WORLD
END;

-- Вывод содержимого массива
DECLARE
    v_arr owa_util.vc_arr;
BEGIN
    v_arr(1) := 'строка 1';
    v_arr(2) := 'строка 2';
    v_arr(3) := 'строка 3';
    
    owa_util.listprint(v_arr);
END;

BEGIN
    DBMS_FILE_TRANSFER.COPY_FILE(
        source_directory_object  => 'SRC_DIR',
        source_file_name         => 'backup.dmp',
        destination_directory_object => 'DEST_DIR',
        destination_file_name    => 'backup_copy.dmp'
    );
END;

-- Выдача прав на подключение к хосту пользователю SCOTT
BEGIN
    DBMS_NETWORK_ACL_ADMIN.APPEND_HOST_ACE(
        host => 'www.example.com',
        ace  => XS$ACE_TYPE(
            privilege_list => XS$NAME_LIST('connect', 'resolve'),
            principal_name => 'SCOTT',
            principal_type => XS_ACL.PTYPE_DB
        )
    );
END;

-- Включение SQL-трассировки в другой сессии
EXEC DBMS_SYSTEM.SET_SQL_TRACE_IN_SESSION(sid => 31, serial# => 97, sql_trace => TRUE);

-- Выключение трассировки
EXEC DBMS_SYSTEM.SET_SQL_TRACE_IN_SESSION(31, 97, FALSE);

-- Запись сообщения в alert-лог
-- 2 — alert-лог, 1 — trace-файл, 3 — оба
EXEC DBMS_SYSTEM.KSDWRT(2, 'Тестовое сообщение');

-- Преобразование IANA-кодировки в Oracle
SELECT utl_gdk.charset_map('iso-8859-p1', utl_gdk.IANA_TO_ORACLE) FROM dual;
-- Результат: WE8ISO8859P1

-- Преобразование названия языка Oracle в ISO-код
SELECT utl_gdk.language_map('english', utl_gdk.ORACLE_TO_ISO) FROM dual;
-- Результат: en

-- Преобразование кода территории ISO в название Oracle
SELECT utl_gdk.territory_map('us', utl_gdk.ISO_TO_ORACLE) FROM dual;
-- Результат: America