dmz 개발창고

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

CREATE FUNCTION RANDOM_GUID

    RETURN VARCHAR2 IS

    RNG    NUMBER;

    N      BINARY_INTEGER;

    CCS    VARCHAR2 (128);

    XSTR   VARCHAR2 (4000) := NULL;

  BEGIN

    CCS := '0123456789' || 'ABCDEF';

    RNG := 15;

    FOR I IN 1 .. 32 LOOP

      N := TRUNC (RNG * DBMS_RANDOM.VALUE) + 1;

      XSTR := XSTR || SUBSTR (CCS, N, 1);

    END LOOP;

    RETURN XSTR;

  END RANDOM_GUID;

1

2

3

4

5

6

create or replace function random_uuid return VARCHAR2 is

  v_uuid VARCHAR2(40);

begin

  select regexp_replace(rawtohex(sys_guid()), '([A-F0-9]{8})([A-F0-9]{4})([A-F0-9]{4})([A-F0-9]{4})([A-F0-9]{12})', '\1-\2-\3-\4-\5') into v_uuid from dual;

  return v_uuid;

end random_uuid;