Oracle. ORA-21561: OID generation failed

После установки клиента при попытке коннекта выбрасывается следующая ошибка 

ORA-21561: OID generation failed

Для устранения необходимо добавить имя хоста в файл hosts:

$ hostname
$ nano /etc/hosts
 > 127.0.0.1      localhost      hostname

PLSQL. JSON validator (string validation)

Как известно, JSON формат представляет собой альтернативу XML формату. В настоящее время данный формат получил довольно широкое распространение. Так же и Oracle не отстает от времени и в версии 12.1.0.2 была добавлена нативная поддержка JSON формата. Если Вы работаете на более поздних версиях, то можно добавить собственные реализации для поддержки формата. Есть уже и готовые решения, например можно воспользоваться следующим ресурсом - https://github.com/pljson/pljson.

В моем же случае все немного проще. На стороне сервера по триггеру запускался обработчик, который формировал данные в строковом виде в JSON формате и после отправлял POST запросом на определенный ресурс. Перед отправкой необходимо было убедиться в валидности JSON формата. Так возникла потребность в организации такого рода JSON валидатора. За основу был взят JSON парсер, написанный Дугласом Крокфордом на javascript, с которым можно ознакомиться по ссылке - https://github.com/douglascrockford/JSON-js/blob/master/json_parse.js. Данный парсер предоставляет альтернативу встроенному парсеру JSON.parse в случае отсутствия поддержки оного в Вашем браузере. Ниже представлена реализация тела пакета данного валидатора. В спецификации внешний доступ предоставлен трем методам:

function unsafety_validate(source in varchar2) return boolean;
function safety_validate(source in varchar2) return boolean;
function safety_validate(source in varchar2, errmsg in out varchar2) return boolean;

Префиксы - safety и unsafety - указывают на возможность генерирования возникающих в ходе валидации исключений. С полным описанием пакета можно ознакомиться по ссылке - https://github.com/mozg1984/PL-JSON-VALIDATOR.


create or replace package body json_validator is

  /* @private
   * type for instantiate keys storages
   */
  type array_t is table of varchar2(1000);

  atCh integer; -- the index of the current character
  ch char;      -- the current character
  text varchar2(32767);

  /* @private
   * call error when something is wrong
   */
  procedure error(m in varchar2 default '')
  is
    errmsg varchar2(32767);
  begin
    errmsg := 'name: SyntaxError, ';
    errmsg := errmsg || 'message: ' || m || ', ';
    errmsg := errmsg || 'at: ' || atCh || ', ';
    errmsg := errmsg || 'text: ' || text;
    raise_application_error(-20000, errmsg);
  end;

  /* @private
   * escape sequence
   */
  function escapee(ch in char default '') return varchar2
  is
  begin
    case ch
      when '"' then return '"';
      when '\' then return '\';
      when '/' then return '/';
      when 'b' then return '\b';
      when 'f' then return '\f';
      when 'n' then return '\n';
      when 'r' then return '\r';
      when 't' then return '\t';
      else return null;
    end case;
  end;

  /* @private
   * add key to keys storage
   */
  procedure add_key(p_array in out nocopy array_t, p_key in varchar2)
  is
  begin
    p_array.extend();
    p_array(p_array.count()) := p_key;
    exception
      when collection_is_null then 
        p_array := array_t(p_key);
  end;
  
  /* @private
   * check duplicate keys in keys storage
   */
  function has_key(p_array in out nocopy array_t, p_key in varchar2) return boolean
  is
    is_equal boolean := false;
  begin
    for i in p_array.first..p_array.last loop
      if p_array(i) = p_key then
        is_equal := true;
      end if; 
    end loop;
    
    return is_equal;
    exception
      when collection_is_null then 
        return is_equal;
  end;

  /* @private
   *  get char from string by index position
   */
  function charAt(str in varchar2, pos in integer) return char
  is
  begin
    return substr(str, pos, 1);
  end;

  /* @private
   * check if given number
   */
  function isNumber(num in varchar2) return boolean
  is
  begin
    case regexp_like(num, '^\d*\.?\d+$')
      when true then 
        return true;
      else 
        return false; 
    end case;
  end;
  
  /* @private
   * check if given character
   */
  function exist(ch in varchar2 default '') return boolean
  is
  begin
    return ch is not null; 
  end;

  /* @private
   * convert hex number (character) to decimal number
   */
  function hex2dec(ch in char) return number
  is
  begin
    return to_number(ch, 'x');
    exception
      when value_error then
        return null;
  end;
  
  /* @private
   * convert hex code to unicode character
   */
  function getUnicodeChar(hexcode in varchar2) return varchar2
  is
  begin
    return trim(unistr('\' || hexcode || ' '));
    exception
      when others then
        return ''; 
  end;

  /* @private
   * get the next character
   */
  function nextChar(c in char default '') return char
  is
  begin
    -- if a c parameter is provided, verify that it matches the current character
    if (exist(c) and c != ch) then
      error('Expected ''' || c || ''' instead of ''' || ch || '''');
    end if;

    -- when there are no more characters, return the empty string
    ch := charAt(text, atCh);
    atCh := atCh + 1;
    return ch;
  end;
  
  /* @private
   * move current char to next
   */
  procedure nextChar(c in char default '')
  is
  begin
    -- if a c parameter is provided, verify that it matches the current character
    if (exist(c) and c != ch) then
      error('Expected ''' || c || ''' instead of ''' || ch || '''');
    end if;

    ch := charAt(text, atCh);
    atCh := atCh + 1;
  end;

  /* @private
   * forward declaration of common validate function 
   */
  function validate return boolean;

  /* @private
   * validate a number value
   */
  function validateNumber return boolean
  is
    l_number varchar2(32767) := '';
  begin
    if (ch = '-') then
      l_number := '-';
      nextChar('-');
    end if;

    while (ch >= '0' and ch <= '9') loop
      l_number := l_number || ch;
      nextChar();
    end loop;

    if (ch = '.') then
      l_number := l_number || '.';
      while (exist(nextChar()) and ch >= '0' and ch <= '9') loop
        l_number := l_number || ch;
      end loop;
    end if;

    if (ch = 'e' or ch = 'E') then
      l_number := l_number || ch;
      nextChar();

      if (ch = '-' or ch = '+') then
        l_number := l_number || ch;
        nextChar();
      end if;

      while (ch >= '0' and ch <= '9') loop
        l_number := l_number || ch;
        nextChar();
      end loop;
    end if;

    if (not(isNumber(l_number))) then
      error('Bad number');
    else
      return true;
    end if;
  end;

  /* @private
   * validate a string value
   */
  function validateString return boolean
  is
    decnum number;
  begin
    -- when parsing for string values, we must look for " and \ characters
    if (ch = '"') then
      while (exist(nextChar())) loop
        if (ch = '"') then
          nextChar();
          return true;
        end if;

        if (ch = '\') then
          nextChar();
          if (ch = 'u') then
            for i in 1..4 loop
              decnum := hex2dec(nextChar());              
              if (not isNumber(decnum)) then
                error('Malformed Unicode character escape sequence');
              end if;
            end loop;
          elsif (escapee(ch) is not null) then
            null;
          else
            exit;
          end if;
        end if;
      end loop;
    end if;
    error('Bad string');
  end;
  
  /* @private
   * get string key value (for checking duplicate keys in object value)
   */
  function stringKey return varchar2
  is
    l_string varchar2(32767) := '';
    decnum number;
    uffff varchar2(32767);
  begin
    -- when parsing for string values, we must look for " and \ characters
    if (ch = '"') then
      while (exist(nextChar())) loop
        if (ch = '"') then
          nextChar();
          return l_string;
        end if;

        if (ch = '\') then
          nextChar();
          if (ch = 'u') then
            uffff := '';
            for i in 1..4 loop
              decnum := hex2dec(nextChar());
              if (not isNumber(decnum)) then
                error('Malformed Unicode character escape sequence');
              end if;
              uffff := uffff || ch;
            end loop;
            l_string := l_string || getUnicodeChar(uffff);
          elsif (escapee(ch) is not null) then
            l_string := l_string || escapee(ch);
          else
            exit;
          end if;
        else
          l_string := l_string || ch;
        end if;
      end loop;
    end if;
    error('Bad string');
  end;
  
  /* @private
   * skip whitespace
   */
  procedure white 
  is
  begin
    while (exist(ch) and ch <= ' ') loop
      nextChar();
    end loop;
  end;

  /* @private
   * validate a word (true, false or null)
   */
  function validateWord return boolean
  is
  begin
    case ch
      when 't' then
        nextChar('t');
        nextChar('r');
        nextChar('u');
        nextChar('e');
        return true;
      when 'f' then
        nextChar('f');
        nextChar('a');
        nextChar('l');
        nextChar('s');
        nextChar('e');
        return true;
      when 'n' then
        nextChar('n');
        nextChar('u');
        nextChar('l');
        nextChar('l');
        return true;
      else
        error('Unexpected ''' || ch || '''');
    end case; 
  end;
  
  /* @private
   * validate an array value
   */
  function validateArray return boolean
  is
    l_result boolean := true;
  begin
    if (ch = '[') then
      nextChar('[');
      white();
      if (ch = ']') then
        nextChar(']');
        return l_result; -- empty array
      end if;
      
      while (exist(ch)) loop
        l_result := validate();
        white();
        if (ch = ']') then
          nextChar(']');
          return l_result;
        end if;
        nextChar(',');
        white();
      end loop;
    end if;
    error('Bad array');
  end;

  /* @private
   * validate an object value
   */
  function validateObject return boolean
  is
    l_result boolean := true;
    l_key varchar2(1000);
    l_keys array_t;
  begin
    if (ch = '{') then
      nextChar('{');
      white();
      if (ch = '}') then
        nextChar('}');
        return l_result; -- empty object
      end if;
      
      while (exist(ch)) loop
        l_key := stringKey();
        white();
        nextChar(':');
        
        if (has_key(l_keys, l_key)) then
          error('Duplicate key "' || l_key || '"');
        end if;
        
        add_key(l_keys, l_key);
        l_result := validate();
        white();
        
        if (ch = '}') then
          nextChar('}');
          return l_result;
        end if;
        
        nextChar(',');
        white();
      end loop;
    end if;
    error('Bad object');
  end;

  /* @public
   * validate a JSON value. 
   * It could be an object, an array, a string, a number, or a word.
   */
  function validate return boolean
  is
  begin
    white();
    case ch
      when '{' then
        return validateObject();
      when '[' then
        return validateArray();
      when '"' then
        return validateString();
      when '-' then
        return validateNumber();
      else
        return case
          when (ch >= '0' and ch <= '9') then validateNumber() else validateWord() end; 
    end case;
  end;
  
  /* @public
   * unsafety validate JSON string (throw exception ora-20000)
   */
  function unsafety_validate(source in varchar2) return boolean
  is
    l_result boolean;
  begin
    text := source;
    atCh := 1;
    ch := ' ';
    
    l_result := validate();
    white();
    
    if (exist(ch)) then
      error('Syntax error');
    end if;
    
    return l_result; 
  end;
  
  /* @public
   * safety validate JSON string (catch all exceptions)
   */
  function safety_validate(source in varchar2) return boolean
  is
    l_result boolean;
  begin
    text := source;
    atCh := 1;
    ch := ' ';
    
    l_result := validate();
    white();
    
    if (exist(ch)) then
      error('Syntax error');
    end if;
    
    return l_result;
    
    exception
      when others then
        return false;
  end;
  
  /* @public
   * safety validate JSON string (catch all exceptions with error message) 
   */
  function safety_validate(source in varchar2,
                           errmsg in out varchar2) return boolean
  is
    l_result boolean;
  begin
    text := source;
    atCh := 1;
    ch := ' ';
    
    l_result := validate();
    white();
    
    if (exist(ch)) then
      error('Syntax error');
    end if;
    
    return l_result;
    
    exception
      when others then
        errmsg := sqlerrm;
        return false;
  end;

begin
  -- init
  null;
end json_validator;


Пример использования данного пакета


declare
  json_string varchar2(1000);
  errmsg varchar2(32767);
begin
  
  json_string := '{"number": 123456, "text": "active", "array": [], "object": {}}';
  
  if json_validator.safety_validate(json_string, errmsg) then
    dbms_output.put_line('JSON is valid');
  else
    dbms_output.put_line('JSON is not valid');
    dbms_output.put_line(errmsg);
  end if;
  
end;

Javascript. Unicode char by hex code

Ниже представлена реализация получения unicode-символа по шестнадцатеричному коду в методе getUnicodeChar утилитного объекта util.

// utility object
var util = {   
    // modulo
    mod: function (a, b) {
        return a % b;
    },

    // integer division
    div: function (a, b) {
        return (a - a % b) / b;
    },

    // convert hex to decimal number
    hex2dec: function (hex) {
        hex = '' + hex;
       
        var result = 0,
              dec, i, len;
       
        for (i = 0, len = hex.length; i < len; i++) {
            dec = parseInt(hex.charAt(i), 16);
            if (!isFinite(dec)) {
                break;
            }
            result = result * 16 + dec;
        }
       
        return result;
    },

    // convert decimal number to hex
    dec2hex: function (number) {
        number = +number;
       
        var dec = 0,
              result = '',
              self = this;
       
        while ((dec = self.mod(number, 16)) > 0) {
            result = dec.toString(16) + result;
            number = self.div(number, 16);
        }
       
        return result;
    },
   
    // get unicode char
    getUnicodeChar: function (unicode) {
        var unicodeChar = '',
              uffff = 0,
              self = this;
       
        if (unicode.charAt(0) === '\\' && unicode.charAt(1) === 'u') {
            uffff = self.hex2dec(unicode.substr(2));
        }
       
        return unicodeChar + String.fromCharCode(uffff);
    }
};


console.log(util.getUnicodeChar('\\u041a')); // К
console.log(util.hex2dec('041a')); // 1050
console.log(util.dec2hex(1050));  // 41a


Стоит отметить, что методы hex2dec и dec2hex можно реализовать и более простым способом.

// convert hex to decimal number
function hex2dec(hex) {
    return parseInt(hex, 16);
}

// convert decimal number to hex
function dec2hex(dec) {
    return dec.toString(16);
}


console.log(hex2dec('041a')); // 1050
console.log(dec2hex(1050));   // 41a

PLSQL. Object type reflection

Возможно ли просматривать начинку объектных типов независимо от их типа. Для этого в Oracle есть поддержка таких универсальных типов как ANYTYPE, ANYDATA и ANYDATASET. Ниже представлен пример рефлексии объектных типов, с элементами типа VARCHAR2, NUMBER и DATE, при желании список поддерживаемых типов можно расширить (см. документацию).

-- sql
create or replace type order_t as object (
   order_id number,
   order_date date,
   description varchar2(1000)
)

-- pl/sql
declare
  v_order order_t := order_t(123456, sysdate, 'Description text');
  v_anydata anydata;

  -- print object information (reflection)
  procedure objectInfo(p_object in out anydata) -- out for piecewise
  is
    l_typecode pls_integer;
    l_anytype anytype;
    l_result pls_integer;
    l_varchar2 varchar2(32767);
    l_number number;
    l_date date;
    
    -- type-level metadata
    type typeinfo_r is record ( 
      prec        pls_integer
     ,scale       pls_integer
     ,len         pls_integer
     ,csid        pls_integer
     ,csfrm       pls_integer
     ,schema_name varchar2(30)
     ,type_name   varchar2(30)
     ,version     varchar2(30)
     ,count       pls_integer
    );
    typeinfo typeinfo_r;

    -- attribute-level metadata
    type attrinfo_r is record (
      prec           pls_integer
     ,scale          pls_integer
     ,len            pls_integer
     ,csid           pls_integer
     ,csfrm          pls_integer
     ,attr_elt_type  anytype
     ,aname          varchar2(32767)
    );
    attrinfo attrinfo_r;
      
  begin
    -- get information for the ANYDATA instance
    l_typecode := p_object.getType(l_anytype);
    dbms_output.put_line('Typecode: ' || l_typecode);

    if l_typecode = dbms_types.typecode_object then -- if given object
      p_object.piecewise();
      
      -- get type-level metadata
      l_typecode := l_anytype.GetInfo(typeinfo.prec,
                                      typeinfo.scale,
                                      typeinfo.len,
                                      typeinfo.csid,
                                      typeinfo.csfrm,
                                      typeinfo.schema_name,
                                      typeinfo.type_name,
                                      typeinfo.version,
                                      typeinfo.count);
      
      dbms_output.put_line('-------------------------------------');
      dbms_output.put_line('Typename: ' || typeinfo.type_name);
      dbms_output.put_line('Attributes: ' || typeinfo.count);
      
      for i in 1..typeinfo.count loop -- loop by atrributes 
        -- get attribute-level metadata
        l_typecode := l_anytype.getAttrElemInfo(i,
                                                attrinfo.prec,
                                                attrinfo.scale,
                                                attrinfo.len,
                                                attrinfo.csid,
                                                attrinfo.csfrm,
                                                attrinfo.attr_elt_type,
                                                attrinfo.aname);
        
        dbms_output.put_line('-------------------------------------');
        dbms_output.put_line('Attribute: ' || attrinfo.aname);
        dbms_output.put_line('Typecode: ' || l_typecode);
        dbms_output.put_line('Length: ' || nvl(attrinfo.len, attrinfo.prec));
           
        if l_typecode = dbms_types.typecode_varchar2 then -- varchar2
          l_result := p_object.getVarchar2(c => l_varchar2);
          dbms_output.put_line('Value: ' || l_varchar2);
          
        elsif l_typecode = dbms_types.typecode_number then -- number
          l_result := p_object.getNumber(num => l_number);
          dbms_output.put_line('Value: ' || l_number);
          
        elsif l_typecode = dbms_types.typecode_date then -- date
          l_result := p_object.getDate(dat => l_date);
          dbms_output.put_line('Value: ' || to_char(l_date, 'dd.mm.yyyy'));
          
        else
          raise_application_error(-20000, 'Unexpected ' || i || 'st attribute typecode: ' || l_typecode);
        end if;
          
      end loop;
    end if;      
  end;

begin
  
  v_anydata := anydata.convertObject(v_order);
  objectInfo(v_anydata);

end;



Typecode: 108
-------------------------------------
Typename: ORDER_T
Attributes: 3
-------------------------------------
Attribute: ORDER_ID
Typecode: 2
Length: 0
Value: 123456
-------------------------------------
Attribute: ORDER_DATE
Typecode: 12
Length: 
Value: 15.10.2015
-------------------------------------
Attribute: DESCRIPTION
Typecode: 9
Length: 1000
Value: Description text

oracle v.11.2. Escape and unescape url in cyrillic utf-8

Всем знакомы проблемы с кодировками на кириллице, на Oracle есть замечательный пакет utl_url, который позволяет кодировать символы в utf8 формате. Данный пакет может особо пригодиться, при использовании пакета utl_http во взаимодействии с веб серверами. Попробуйте наладить отправку данных без поддержки этих методов и Вы поймете о чем идет речь. Ниже приведены примеры их использования.

declare
  url varchar2(100) := 'http://example.com/?language=русский';
begin
  url := utl_url.escape(url, true, 'utf-8');
  dbms_output.put_line(url);
  
  url := utl_url.unescape(url, 'utf-8');
  dbms_output.put_line(url);
end;

На выходе:

http%3A%2F%2Fexample.com%2F%3Flanguage%3D%D1%80%D1%83%D1%81%D1%81%D0%BA%D0%B8%D0%B9

http://example.com/?language=русский

oracle v.11.2. Get md5 hash

select 
  lower(dbms_obfuscation_toolkit.md5(input => utl_raw.cast_to_raw('qwerty'))) md5hash
from dual;

d8578edf8458ce06fbc5bb76a58c5ca4

C. Support private objects in functions

Можно ли добиться поддержки приватности в структурном программировании на C? Javascript может поддерживать приватность за счет техники замыкания, C, конечно, такой возможности не имеет, но можно воспользоваться статическими объектами (с точки зрения класса памяти). Ниже приведен один из подходов

#include <stdio.h>

// init counter action
void init(int *cnt) {
  *cnt = 0;
}

// increment counter action
void increment(int *cnt) {
  (*cnt)++; 
}

// decrement counter action
void decrement(int *cnt) {
  (*cnt)--;
}

// show counter action
void show(const int *cnt) {
  printf("counter = %d\n", *cnt);
}

// counter encapsulation
void counter(void (*action) (int*)) {
  static int cnt = 0; // private
  action(&cnt);
}

int main() {
  
  counter(init);            // counter = 0;
  counter(show);         // counter = 0;
  counter(increment); // counter = 1;
  counter(increment); // counter = 2;
  counter(show);         // counter = 2;

  return 0;
}

В данном случае функции определяют возможные действия над приватным счетчиком, другие действия, как и прямое обращение к значению счетчика (статическая переменная cnt), недопустимы. Можно усложнить данную реализацию для повышения функционала действий над приватным счетчиком. Вот одна из реализаций

#include <stdio.h>
#include <string.h>
#include <stdarg.h>

// check requested init action
int is_init(const char *action) {
  return !strcmp(action, "init");
}

// check requested increment action 
int is_increment(const char *action) {
  return !strcmp(action, "increment");
}

// check requested decrement action
int is_decrement(const char *action) {
  return !strcmp(action, "decrement");


// check requested show action 
int is_show(const char *action) {
  return !strcmp(action, "show");
}

// init counter action
void init(int *cnt) {
  *cnt = 0;
}

// increment counter action
void increment(int *cnt, int n) {
  (*cnt) += n;
}

// decrement counter action
void decrement(int *cnt, int n) {
  (*cnt) -= n;
}

// show counter action
void show(const int *cnt) {
  printf("counter = %d\n", *cnt);
}

// counter encapsulation
void counter(char *action, ...) {
  static int cnt = 0;// private

  va_list par;
  va_start(par, action);
  int n = *((int *) par);// get argument value
  *((int *) par) = 0;// clear argument value
  va_end(par);

  n = n > 1 ? n : 1;

  #ifdef DEBUGMODE
printf("debug: action = %s, counter = %d, n = %d\n", action, cnt, n);
  #endif

  if (is_init(action))
    init(&cnt);
  else if (is_increment(action))
    increment(&cnt, n); 
  else if (is_decrement(action))
    decrement(&cnt, n);
  else if (is_show(action))
    show(&cnt);
  else
    printf("unsupported action\n");
}

int main() {

  counter("init");                 // counter = 0
  counter("increment");    // counter = 1
  counter("increment");    // counter = 2
  counter("show");              // counter = 2
  counter("increment", 5); // counter = 7
  counter("show");               // counter = 7
  counter("decrement");     // counter = 6
  counter("show");               // counter = 6
  counter("decrement", 3); // counter = 3
  counter("show");               // counter = 3
  counter("init");                  // counter = 0
  counter("show");               // counter = 0
  counter("test");                  // unsupported action

  return 0;
}

Или так

#include <stdio.h>
#include <stdarg.h>

// actions
typedef enum {init, increment, decrement, show, test} actions;

// check requested init action
int is_init(actions action) {
  return action == init;
}

// check requested increment action 
int is_increment(actions action) {
  return action == increment;
}

// check requested decrement action
int is_decrement(actions action) {
  return action == decrement;


// check requested show action 
int is_show(actions action) {
  return action == show;
}

// init counter action
void init_action(int *cnt) {
  *cnt = 0;
}

// increment counter action
void increment_action(int *cnt, int n) {
  (*cnt) += n;
}

// decrement counter action
void decrement_action(int *cnt, int n) {
  (*cnt) -= n;
}

// show counter action
void show_action(const int *cnt) {
  printf("counter = %d\n", *cnt);
}

// counter encapsulation
void counter(actions action, ...) {
  static int cnt = 0; // private

  va_list par;
  va_start(par, action);
  int n = *((int *) par);// get argument value
  *((int *) par) = 0;// clear argument value
  va_end(par);

  n = n > 1 ? n : 1;

  #ifdef DEBUGMODE
  printf("debug: action = %s, counter = %d, n = %d\n", action, cnt, n);
  #endif

  if (is_init(action))
    init_action(&cnt);
  else if (is_increment(action))
    increment_action(&cnt, n); 
  else if (is_decrement(action))
    decrement_action(&cnt, n);
  else if (is_show(action))
    show_action(&cnt);
  else
    printf("unsupported action\n");
}

int main() {

  counter(init);                  // counter = 0
  counter(increment);     // counter = 1
  counter(increment);     // counter = 2
  counter(show);               // counter = 2
  counter(increment, 5); // counter = 7
  counter(show);               // counter = 7
  counter(decrement);     // counter = 6
  counter(show);               // counter = 6
  counter(decrement, 3); // counter = 3
  counter(show);                // counter = 3
  counter(init);                   // counter = 0
  counter(show);                // counter = 0
  counter(test);                   // unsupported action

  return 0;
}