在Oracle PL/SQL中针对模式验证XML文件

DECLARE
  v_xml_doc XMLTYPE;
  v_schema_doc XMLTYPE;
  v_schema_obj XMLDB.XMLSCHEMA.OBJECT_TYPE;
BEGIN
  -- 加载XML文件
  SELECT XMLTYPE(BFILENAME('SCHEMAS_DIR', 'example.xml'), NLS_CHARSET_ID('AL32UTF8'))
  INTO v_xml_doc
  FROM DUAL;

  -- 加载模式文件
  SELECT XMLTYPE(BFILENAME('SCHEMAS_DIR', 'example.xsd'), NLS_CHARSET_ID('AL32UTF8'))
  INTO v_schema_doc
  FROM DUAL;

  -- 创建模式对象
  v_schema_obj := XMLDB.XMLSCHEMA.NEW(v_schema_doc);

  -- 验证XML文件是否符合模式文件中定义的规则
  IF XMLDB.XMLSCHEMA.VALIDATE(v_schema_obj, v_xml_doc) = 1 THEN
    DBMS_OUTPUT.PUT_LINE('XML文件符合模式文件中定义的规则');
  ELSE
    DBMS_OUTPUT.PUT_LINE('XML文件不符合模式文件中定义的规则');
  END IF;
END;