从数据库中提取BLOB文件并保存在文件系统上

Question

我需要将一些文档从CRM迁移到新的CRM。文档（PDF，DOCx等）在Oracle数据库的BLOB列中。

我以前从未用过这种方式处理BLOB，所以我有点迷茫。

从BLOB列中以原始格式提取文件并将其保存到本地驱动器的最佳方法是什么？

我已经尝试过下面的代码，但是我可能没有正确的运行权限（或者不正确）

DECLARE
  l_file      UTL_FILE.FILE_TYPE;
  l_buffer    RAW(32767);
  l_amount    BINARY_INTEGER := 32767;
  l_pos       NUMBER := 1;
  l_blob      BLOB;
  l_blob_len  NUMBER;
BEGIN

  SELECT CONT_DATA
  INTO   l_blob
  FROM   FILE_CONT
  WHERE  rownum = 1;

  l_blob_len := DBMS_LOB.getlength(l_blob);

  -- Open the destination file.
  l_file := UTL_FILE.fopen('Z:\','test.pdf','wb', 32767);

  WHILE l_pos < l_blob_len LOOP
    DBMS_LOB.read(l_blob, l_amount, l_pos, l_buffer);
    UTL_FILE.put_raw(l_file, l_buffer, TRUE);
    l_pos := l_pos + l_amount;
  END LOOP;

  -- Close the file.
  UTL_FILE.fclose(l_file);

END;