1.创建目录(需要在服务器上创建对应的目录)
create or replace directory testdir as '/u01/software/test';
2.给用户授权(这里可能会有问题,找不到xxx用户,需要创建用户)
grant read,write on directory testdir to xxx;
3.写入文件脚本

declare
  filehandle utl_file.file_type; --句柄
begin
  filehandle := utl_file.fopen('TESTDIR', 'hello.txt', 'w'); --打开文件
  utl_file.put_line(filehandle, 'Hello World!');
  utl_file.fclose(filehandle); --关闭句柄
end;

暂存另一份脚本

create or replace procedure get_test_blob(i_id varchar2) is
  l_file     utl_file.file_type;
  l_filename varchar2(300);
  v_modules varchar2(3000);
  v_classes varchar2(3000);
  v_proc    varchar2(3000);
  v_sysdate varchar2(3000);
  v_count   number;
begin
  l_filename := to_char(sysdate, 'yyyymmdd') || i_id ||'.sh';
  l_file     := utl_file.fopen('TESTDIR', l_filename, 'w');
  dbms_output.put_line('===OPEN OK===' || l_filename);
  dbms_output.put_line('#!/bin/sh');
  utl_file.put_line(l_file, '#!/bin/sh'); --写入文件

  v_sysdate := to_char(sysdate, 'yyyymmdd') || i_id;
  v_modules := '/u01/srm/prod/' || v_sysdate || '/webapp/webRoot/';
  v_classes := '/u01/srm/prod/' || v_sysdate ||
               '/webapp/webRoot/WEB-INF/classes/';
  v_proc    := '/u01/srm/prod/' || v_sysdate || '/jobRunner/';

  dbms_output.put_line('mkdir -p /u01/srm/prod/' || v_sysdate ||
                       '/webapp/webRoot/modules');
  dbms_output.put_line('mkdir -p /u01/srm/prod/' || v_sysdate ||
                       '/webapp/webRoot/WEB-INF/classes');

  utl_file.put_line(l_file,
                    'mkdir -p /u01/srm/prod/' || v_sysdate ||
                    '/webapp/webRoot/modules');
  utl_file.put_line(l_file,
                    'mkdir -p /u01/srm/prod/' || v_sysdate ||
                    '/webapp/webRoot/WEB-INF/classes');
  select count(*) into v_count from h3c_test_pro_proc;
  if v_count > 0 then
    dbms_output.put_line('mkdir -p /u01/srm/prod/' || v_sysdate ||
                         '/jobRunner');
    utl_file.put_line(l_file,
                      'mkdir -p /u01/srm/prod/' || v_sysdate ||
                      '/jobRunner');
  end if;

  dbms_output.put_line('#screen');
  utl_file.put_line(l_file, '#screen');
  for rec in (select distinct trim(h.screen_path) screen_path
                from h3c_test_pro_screen h) loop
    --复制某个目录下的文件
    if rec.screen_path like '%.screen' or rec.screen_path like '%.svc' then
      dbms_output.put_line('mkdir -p ' || v_modules ||
                           substr(rec.screen_path,
                                  1,
                                  instr(rec.screen_path,
                                        '/',
                                        1,
                                        length(rec.screen_path) -
                                        length(replace(rec.screen_path,
                                                       '/',
                                                       '')))));
    
      dbms_output.put_line('cp -rn /u01/srm/webapp/webRoot/' ||
                           rec.screen_path || ' ' || v_modules ||
                           rec.screen_path);
    
      utl_file.put_line(l_file,
                        'mkdir -p ' || v_modules ||
                        substr(rec.screen_path,
                               1,
                               instr(rec.screen_path,
                                     '/',
                                     1,
                                     length(rec.screen_path) -
                                     length(replace(rec.screen_path, '/', '')))));
      utl_file.put_line(l_file,
                        'cp -rn /u01/srm/webapp/webRoot/' ||
                        rec.screen_path || ' ' || v_modules ||
                        rec.screen_path);
      --复制文件夹
    else
      dbms_output.put_line('mkdir -p ' || v_modules || rec.screen_path);
      dbms_output.put_line('cp -rn /u01/srm/webapp/webRoot/' ||
                           rec.screen_path || ' ' || v_modules ||
                           substr(rec.screen_path,
                                  1,
                                  instr(rec.screen_path,
                                        '/',
                                        1,
                                        length(rec.screen_path) -
                                        length(replace(rec.screen_path,
                                                       '/',
                                                       '')) - 1)));
      utl_file.put_line(l_file,
                        'mkdir -p ' || v_modules || rec.screen_path);
      utl_file.put_line(l_file,
                        'cp -rn /u01/srm/webapp/webRoot/' ||
                        rec.screen_path || ' ' || v_modules ||
                        substr(rec.screen_path,
                               1,
                               instr(rec.screen_path,
                                     '/',
                                     1,
                                     length(rec.screen_path) -
                                     length(replace(rec.screen_path, '/', '')) - 1)));
    end if;
  end loop;
  dbms_output.put_line('#bm');
  utl_file.put_line(l_file, '#bm');
  for rec in (select distinct trim(h.bm_path) bm_path from h3c_test_pro_bm h) loop
    if rec.bm_path like '%.bm' then
      dbms_output.put_line('mkdir -p ' || v_classes ||
                           replace(substr(rec.bm_path,
                                          1,
                                          instr(replace(rec.bm_path,
                                                        '.bm',
                                                        ''),
                                                '.',
                                                -1) - 1),
                                   '.',
                                   '/'));
      dbms_output.put_line('cp -rn /u01/srm/webapp/webRoot/WEB-INF/classes/' ||
                           replace(replace(rec.bm_path, '.bm', ''),
                                   '.',
                                   '/') || '.bm' || ' ' || v_classes ||
                           replace(replace(rec.bm_path, '.bm', ''),
                                   '.',
                                   '/') || '.bm');
      utl_file.put_line(l_file,
                        'mkdir -p ' || v_classes ||
                        replace(substr(rec.bm_path,
                                       1,
                                       instr(replace(rec.bm_path, '.bm', ''),
                                             '.',
                                             -1) - 1),
                                '.',
                                '/'));
      utl_file.put_line(l_file,
                        'cp -rn /u01/srm/webapp/webRoot/WEB-INF/classes/' ||
                        replace(replace(rec.bm_path, '.bm', ''), '.', '/') ||
                        '.bm' || ' ' || v_classes ||
                        replace(replace(rec.bm_path, '.bm', ''), '.', '/') ||
                        '.bm');
    
    else
      dbms_output.put_line('mkdir -p ' || v_classes ||
                           replace(rec.bm_path, '.', '/'));
      dbms_output.put_line('cp -rn /u01/srm/webapp/webRoot/WEB-INF/classes/' ||
                           replace(rec.bm_path, '.', '/') || ' ' ||
                           v_classes ||
                           substr(rec.bm_path,
                                  1,
                                  instr(rec.bm_path, '.', 1) - 1));
      utl_file.put_line(l_file,
                        'mkdir -p ' || v_classes ||
                        replace(rec.bm_path, '.', '/'));
      utl_file.put_line(l_file,
                        'cp -rn /u01/srm/webapp/webRoot/WEB-INF/classes/' ||
                        replace(rec.bm_path, '.', '/') || ' ' || v_classes ||
                        substr(rec.bm_path,
                               1,
                               instr(rec.bm_path, '.', 1) - 1));
    end if;
  end loop;
  dbms_output.put_line('#proc');
  utl_file.put_line(l_file, '#proc');
  for rec in (select distinct trim(h.bm_path) proc_path
                from h3c_test_pro_proc h) loop
    if rec.proc_path like '%.bm' or rec.proc_path like '%.proc' then
      dbms_output.put_line('mkdir -p ' || v_proc ||
                           substr(rec.proc_path,
                                  1,
                                  instr(rec.proc_path,
                                        '/',
                                        1,
                                        length(rec.proc_path) -
                                        length(replace(rec.proc_path,
                                                       '/',
                                                       '')))));
    
      dbms_output.put_line('cp -rn /u01/srm/jobRunner/' || rec.proc_path || ' ' ||
                           v_proc || rec.proc_path);
      utl_file.put_line(l_file,
                        'mkdir -p ' || v_proc ||
                        substr(rec.proc_path,
                               1,
                               instr(rec.proc_path,
                                     '/',
                                     1,
                                     length(rec.proc_path) -
                                     length(replace(rec.proc_path, '/', '')))));
      utl_file.put_line(l_file,
                        'cp -rn /u01/srm/jobRunner/' || rec.proc_path || ' ' ||
                        v_proc || rec.proc_path);
    end if;
  end loop;

  dbms_output.put_line('===EXPORT OK===');

  utl_file.fclose(l_file);

exception
  when utl_file.invalid_path then
    --无效的路径
    dbms_output.put_line('===INVALID_PATH===' || i_id);
    raise;
  when utl_file.invalid_mode then
    --无效的打开模式
    dbms_output.put_line('===INVALID_MODE===' || i_id);
    raise;
  when utl_file.invalid_operation then
    --无效的操作,文件打开错误会报这个异常,一般来说都是超长或打开方式byte型和非byte型
    dbms_output.put_line('===INVALID_OPERATION===' || i_id);
    raise;
  when utl_file.invalid_maxlinesize then
    --无效的最大长度,varchar2最大4000,raw最大32676,超过回报这个异常,所以一般要进行循环操作
    dbms_output.put_line('===INVALID_MAXLINESIZE===' || i_id);
    raise;
  when utl_file.access_denied then
    --拒绝进入指定路径,可能是授权问题
    dbms_output.put_line('===ACCESS_DENIED===' || i_id);
    raise;
  when utl_file.invalid_filehandle then
    --文件处理错误,不常见
    dbms_output.put_line('===INVALID_FILEHANDLE===' || i_id);
    raise;
  when utl_file.write_error then
    --写入错误,处理该异常最好的方式是将要写入的文件简单化,然后找准错误原因
    dbms_output.put_line('===WRITE_ERROR===' || i_id);
    raise;
  when no_data_found then
    --select时候未找到数据,不是utl_file的异常
    dbms_output.put_line('===NO_DATA_FOUND===' || i_id);
    utl_file.fclose(l_file);
    raise;
  when others then
    if utl_file.is_open(l_file) then
      utl_file.fclose(l_file);
      raise;
    end if;
  
end get_test_blob;
内容来源于网络如有侵权请私信删除

文章来源: 博客园

原文链接: https://www.cnblogs.com/darkerguo/p/14772696.html

你还没有登录,请先登录注册
  • 还没有人评论,欢迎说说您的想法!