如何从Oracle BLOB字段提取文件？

我有一个数据库，其中有许多文件存储在BLOB字段中

如何提取和保存原始文件？有许多不同的文件类型-doc、pdf、xls等。表的扩展名在一个列中，原始文件名在另一个列中。也可能有多个文件具有相同的文件名。

在版本9i以后的版本中，您可以使用该软件包执行此操作

大概是这样的：

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 blobcol
  INTO   l_blob
  FROM   table
  WHERE  rownum = 1;

  l_blob_len := DBMS_LOB.getlength(l_blob);

  -- Open the destination file.
  l_file := UTL_FILE.fopen(<location>,<filename>,'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;
/

---

由于这些是文件，您可能希望使用wb写入字节模式而不是w写入文本。我相信，如果我去掉其中的rownum=1，这将写入字段中的所有BLOB。在这种情况下，如何使文件名成为动态文件名，即使用其他数据库字段作为文件名？此外，该函数是否可以写入包含图像等非文本内容的PDF？WHILE条件下的比较运算符应为