Oracle的创建文件

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;

原文转载：http://www.shaoqun.com/a/746774.html

跨境电商：https://www.ikjzd.com/

贝恩：https://www.ikjzd.com/w/1336

海带宝：https://www.ikjzd.com/w/1548

1.创建目录(需要在服务器上创建对应的目录)createorreplacedirectorytestdiras'/u01/software/test';2.给用户授权(这里可能会有问题，找不到xxx用户，需要创建用户)grantread,writeondirectorytestdirtoxxx;3.写入文件脚本declarefilehandleutl_file.file_type;
haofang：https://www.ikjzd.com/w/1046
zappos：https://www.ikjzd.com/w/330
mail.ru：https://www.ikjzd.com/w/2232
2019最佳免费自建站平台合集！：https://www.ikjzd.com/home/90538
来宝贝把腿张开舔花核 口述婚检时遭到女医生的调戏：http://lady.shaoqun.com/a/274061.html
新手卖家该如何打造爆款产品？：https://www.ikjzd.com/home/18590