如何使用pl/sql将+32k大小的BLOB从base64解码为原始值？

DECLARE
  l_base64_string VARCHAR2(32767) := '...'; -- Base64编码的字符串
  l_raw_data RAW(32767);
  l_blob_data BLOB;
  l_offset NUMBER := 1;
  l_chunk_size NUMBER := 32767;
  l_blob_length NUMBER;
BEGIN
  -- 将Base64编码的字符串转换为原始的二进制数据
  l_raw_data := UTL_ENCODE.BASE64_DECODE(l_base64_string);

  -- 创建一个新的LOB
  DBMS_LOB.CREATETEMPORARY(l_blob_data, TRUE);

  -- 将原始的二进制数据逐个附加到新的LOB中
  WHILE l_offset < DBMS_LOB.GETLENGTH(l_raw_data) LOOP
    DBMS_LOB.APPEND(l_blob_data, DBMS_LOB.SUBSTR(l_raw_data, l_chunk_size, l_offset));
    l_offset := l_offset + l_chunk_size;
  END LOOP;

  -- 获取新的LOB的长度
  l_blob_length := DBMS_LOB.GETLENGTH(l_blob_data);

  -- 读取新的LOB为原始的二进制数据
  DBMS_LOB.READ(l_blob_data, l_blob_length, 1, l_raw_data);

  -- 在此处可以使用原始的二进制数据进行进一步的处理

  -- 释放临时LOB
  DBMS_LOB.FREETEMPORARY(l_blob_data);
END;
/