我正在考虑是否可以将 Oracle blob 写入操作系统文件。乍一看,只能使用外部程序,但可能会有所改变......
如何在 PL/SQL 中将 BLOB 保存到磁盘上的文件 来自:Thomas Kyte
使用 DBMS_LOB 从 BLOB 中读取
您需要创建一个外部过程来获取二进制数据并将其写入操作系统,外部过程可以用 C 编写。如果是 CLOB 数据,您可以使用 UTL_FILE 将其写入操作系统,但 UTL_FILE 不支持BLOB 中的二进制文件。
使用 DB Job 将文件从表迁移到 OS 文件 de SO
基于表 fou_archvos 的示例,它在“archivo”列上有文件,id+nombre 将被连接。
SQL> desc fou_archvos
Name Null? Type
----------------------------------------- -------- ----------------------------
ID NOT NULL NUMBER
NOMBRE NOT NULL VARCHAR2(300)
ACTIVO NOT NULL CHAR(1)
ARCHIVO BLOB
在操作系统上创建一个文件夹,它应该具有操作系统 Oracle 用户所有者的权限。
su - oracle
mkdir /tmp/fou_archvo
在 DB 上创建一个目录对象,例如 TUKLI_FOU_ARCHVOS,授予程序所在的方案权限,例如 PROD。
connect system/***@DB
CREATE OR REPLACE DIRECTORY TUKLI_FOU_ARCHVOS AS '/tmp/fou_archvos';
GRANT READ, WRITE ON DIRECTORY TUKLI_FOU_ARCHVOS TO PROD;
Crear el TU24X7_ARCHVES_TO_OSFILE.prc en PROD 方案,对象
CREATE or replace PROCEDURE TU24X7_ARCHVES_TO_OSFILE(p_from_id number default null )
as
l_file UTL_FILE.FILE_TYPE;
l_buffer RAW(32767);
l_amount BINARY_INTEGER := 32767;
l_pos INTEGER;
--l_blob BLOB;
l_blob_len INTEGER;
l_id varchar2(10);
BEGIN
FOR rFile IN (SELECT archivo, to_char(id)||'_'||nombre filename
FROM fou_archvos
where 1=1
and id >= nvl(p_from_id,id)
)
LOOP
l_pos := 1;
l_blob_len := DBMS_LOB.getlength(rFile.archivo);
l_file := UTL_FILE.fopen('TUKLI_FOU_ARCHVOS',rFile.filename,'wb', 32767);
WHILE l_pos <= l_blob_len LOOP
DBMS_LOB.read(rFile.archivo, 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 LOOP;
EXCEPTION
WHEN OTHERS THEN
-- Close the file if something goes wrong.
IF UTL_FILE.is_open(l_file) THEN
UTL_FILE.fclose(l_file);
END IF;
RAISE;
END;
/
使用 JOB DB 连接 PROD/XX@DB 执行
declare
l_jobid number := null;
begin
dbms_job.submit
(
job => l_jobid,
what => 'TU24X7_ARCHVES_TO_OSFILE;',
next_date => sysdate,
interval => null
);
commit;
end;
/