再次提供一个纯粹通过pl/sql解析json的方法。

在github上面有一个叫pljson的项目，该项目就是用pl/sql 来解析json的。

项目地址：pljson(需翻|强)，如果翻不了强的同学，我在国内克隆了一个副本，不定期同步更新 pljson(国内版)

---

安装方法，在release/ 标签中选择一个版本，

1.下载压缩包，

2.解压，

3.在pl/sql中命令窗口，将install.sql拖入命令窗口

4.F8执行，会顺利安装。

卸载方法，同上，执行uninstall.sql。

---

测试用例1：解析JSONObject

DECLARE
  obj  pljson;
  list pljson_list;

  l_bool BOOLEAN;
BEGIN

  obj := pljson('
    {
      "a": "中文",
      "b": 12.243,
      "c": 2e-3,
      "d": [true, false, "abdc", [1,2,3]],
      "e": [3, {"e2":3}],
      "f": {
        "f2":true
      }
    }');
  --obj.print;
  -- equivalent to print
  dbms_output.put_line(obj.to_char);
  dbms_output.put_line(pljson_ext.get_string(obj, 'a'));
  dbms_output.put_line(pljson_ext.get_double(obj, 'b'));
  dbms_output.put_line(pljson_ext.get_number(obj, 'b'));
  dbms_output.put_line(pljson_ext.get_double(obj, 'c'));
  dbms_output.put_line(pljson_ext.get_number(obj, 'c'));
  l_bool := pljson_ext.get_bool(obj, 'd[1]');
  dbms_output.put_line(sys.diutil.bool_to_int(l_bool));
  l_bool := pljson_ext.get_bool(obj, 'd[2]');
  dbms_output.put_line(sys.diutil.bool_to_int(l_bool));
  dbms_output.put_line(pljson_ext.get_string(obj, 'd[3]'));
  dbms_output.put_line(pljson_ext.get_number(obj, 'e[1]'));
  dbms_output.put_line(pljson_ext.get_number(obj, 'e[2].e2'));
  l_bool := pljson_ext.get_bool(obj, 'f.f2');
  dbms_output.put_line(sys.diutil.bool_to_int(l_bool));
END;

测试用例2：解析JSONArray

DECLARE
  json_data2 pljson;
  json_data  pljson := pljson('{   "foo": "bar",   "list": [     {"key": "value1"},     {"key": "value2"}   ] }');
  list_value pljson_list;

  l_value VARCHAR2(200);
BEGIN
  list_value := json_ext.get_json_list(json_data, 'list');

  dbms_output.put_line('Count = ' || list_value.count);

  FOR i IN 1 .. list_value.count LOOP

    pljson(list_value.get(i)).get('key').print;

    dbms_output.put_line(json_ext.get_string(pljson(list_value.get(i)),
                                               'key'));

    l_value := json_ext.get_string(pljson(list_value.get(i)), 'key');
    dbms_output.put_line(l_value);
  END LOOP;
END;