bit_xor.sql

来自「Oracle PLSQL for DBAs 源代码」· SQL 代码 · 共 25 行

declare
    l_bitxor_val   RAW (2000);
    l_val_1        VARCHAR2 (2000) := '12345678';
    l_val_2        VARCHAR2 (2000) := '87654321';
 BEGIN
    l_bitxor_val :=
       UTL_RAW.bit_xor (utl_i18n.string_to_raw (l_val_1, 'AL32UTF8'),
                        utl_i18n.string_to_raw (l_val_2, 'AL32UTF8')
                       );
    DBMS_OUTPUT.put_line (   'Raw Val_1:     '
                          || RAWTOHEX (utl_i18n.string_to_raw (l_val_1,
                                                               'AL32UTF8'
                                                              )
                                      )
                         );
    DBMS_OUTPUT.put_line (   'Raw Val_2:     '
                          || RAWTOHEX (utl_i18n.string_to_raw (l_val_2,
                                                               'AL32UTF8'
                                                              )
                                      )
                         );
    DBMS_OUTPUT.put_line ('After bit XOR: ' || RAWTOHEX (l_bitxor_val));
 END;
/