Question

我在考虑是否有可能将Oracle blob写入OS文件。乍一看，它只能使用外部程序，但可能会发生变化......

如何将BLOB保存到PL / SQL中的磁盘上的文件来自：Thomas Kyte

使用DBMS_LOB从BLOB中读取

您需要创建一个外部过程来获取二进制数据和   把它写到操作系统，外部程序即可   用C语言编写。如果是CLOB数据，可以使用UTL_FILE将其写入   操作系统，但UTL_FILE不支持BLOB中的二进制文件。

Answer 1

使用DB Job将文件从表迁移到OS文件de

基于表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

在OS上创建一个文件夹，该文件夹应具有OS Oracle用户所有者的权限。

su - oracle
mkdir /tmp/fou_archvo

在数据库上创建目录对象（例如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;

PROD方案，对象 TU24X7_ARCHVES_TO_OSFILE.prc

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;
/

Oracle中BLOB的OS文件

1 个答案: