记录关于Oracle 存储过程里使用json_objec_t,json_array_t,json_key_list 的简单使用。

列子：

json:  {"t":"TEST_M","k":"TESTID","c":["S1","N1"],"ids":[101]}

procedure json_pro(
p_jo      clob
)
as
v_jo      json_object_t;
v_ids     json_array_t;
v_jk      json_key_list;
v_id      number(10);
v_bid     varchar(10);

begin
  v_jo := json_object_t(p_jo);
  v_bid := v_jo.get_String('t');
  dbms_output.put_line(v_bid); 
  v_ids := v_jo.get_Array('ids');
  for j in 0 .. v_ids.get_size -1 loop
    v_id :=v_ids.get_Number(j);
    dbms_output.put_line(v_id); 
  end loop;
  
  v_jk := v_jo.get_Keys;
  for k in 1 .. v_jk.count loop

    dbms_output.put_line(v_jk(k)); 
    dbms_output.put_line('keys:'||v_jo.get_String(v_jk(k))); 
  end loop;
end;

输出结果

TEST_M
101
keys:TEST_M
keys:TESTID
keys:
keys: