Oracle 中 取Guid

select GET_GUID from dual;

CREATE OR REPLACE FUNCTION GET_GUID
    RETURN CHAR
IS
    v_guid              CHAR (36);
    v_guid_part_one     CHAR (8);
    v_guid_part_two     CHAR (4);
    v_guid_part_three   CHAR (4);
    v_guid_part_four    CHAR (4);
    v_guid_part_five    CHAR (12);
BEGIN
    SELECT SYS_GUID ()
      INTO v_guid
      FROM DUAL;

    v_guid_part_one := SUBSTR (v_guid, 0, 8);
    v_guid_part_two := SUBSTR (v_guid, 8, 4);
    v_guid_part_three := SUBSTR (v_guid, 12, 4);
    v_guid_part_four := SUBSTR (v_guid, 16, 4);
    v_guid_part_five := SUBSTR (v_guid, 20, 12);
    v_guid :=
       CONCAT
          (CONCAT
              (CONCAT
                  (CONCAT (CONCAT (CONCAT (CONCAT (CONCAT (v_guid_part_one,
                                                           '-'),
                                                   v_guid_part_two
                                                  ),
                                           '-'
                                          ),
                                   v_guid_part_three
                                  ),
                           '-'
                          ),
                   v_guid_part_four
                  ),
               '-'
              ),
           v_guid_part_five
          );
    RETURN (v_guid);
END GET_GUID;