在sqlplus中为Oracle数据库假脱机

Question

我有100个Oracle查询的.sql文件，因此假脱机将所有100个查询的结果写入一个文件，但是我希望为每个查询创建一个文件，对于100个查询应该有100个文件特定查询的结果。

Answer 1

这不是很明显吗？ 在SELECT之前设置SPOOL，在SELECT之后设置SPOOL OFF。 键入很多，因为每个SPOOL应该有自己的文件名。

也许您可以创建一个脚本来为您执行此操作。 使用UTL_FILE，您将逐行读取并创建通用假脱机文件名（例如Q1.TXT，Q2.TXT等），然后将所有内容写回到新的大型SQL文件中。

这是一个例子。 我的LARGE.SQL包含几个SELECT语句：

select count(*) from tab;

select department_name from departments
where department_id < 100;

select sysdate 
from dual;

以下脚本创建一个LARGE_W.SQL，该LARGE_W.SQL在每个SELECT之间插入了SPOOL命令：

SQL> declare
  2    l_file_r utl_file.file_type;  -- read large.sql
  3    l_file_w utl_file.file_type;  -- write large_2.sql
  4    l_text   varchar2(32767);     -- read line by line
  5    i        number := 1;         -- counter
  6  begin
  7    l_file_r := utl_file.fopen('EXT_DIR', 'large.sql'  , 'r');
  8    l_file_w := utl_file.fopen('EXT_DIR', 'large_w.sql', 'w');
  9
 10    begin
 11      loop
 12        utl_file.get_line(l_file_r, l_text, 32767);
 13
 14        if regexp_substr(trim(upper(l_text)), '^\w+') = 'SELECT' then
 15           -- the first word is SELECT
 16           utl_file.put_line(l_file_w, 'SPOOL OFF');
 17           utl_file.put_line(l_file_w, 'SPOOL Q' || to_char(i) ||'.TXT');
 18           i := i + 1;
 19        end if;
 20        -- lines different than 1st in this SELECT section
 21        utl_file.put_line(l_file_w, l_text);
 22      end loop;
 23    exception
 24      when no_data_found then
 25        utl_file.put_line(l_file_w, 'SPOOL OFF');
 26        null;
 27    end;
 28
 29    utl_file.fclose(l_file_r);
 30    utl_file.fclose(l_file_w);
 31  end;
 32  /

PL/SQL procedure successfully completed.

SQL>

结果是LARGE_W.SQL

SPOOL OFF
SPOOL Q1.TXT
select count(*) from tab;

SPOOL OFF
SPOOL Q2.TXT
select department_name from departments
where department_id < 100;

SPOOL OFF
SPOOL Q3.TXT
select sysdate 
from dual;
SPOOL OFF

运行时，它将创建3个Qn.TXT文件：

SQL> @c:\temp\large_w.sql
not spooling currently

  COUNT(*)
----------
        40


DEPARTMENT_NAME
------------------------------
Administration
Marketing
Purchasing
Human Resources
Shipping
IT
Public Relations
Sales
Executive

9 rows selected.


SYSDATE
--------
16:09:42

SQL> $dir q*.txt
 Volume in drive C is OSDisk
 Volume Serial Number is 7635-F892

 Directory of C:\Users\lf

21.01.2018.  16:09               250 Q1.TXT
21.01.2018.  16:09               926 Q2.TXT
21.01.2018.  16:09               250 Q3.TXT
               3 File(s)          1.426 bytes
               0 Dir(s)  351.802.810.368 bytes free

SQL> $type q1.txt

  COUNT(*)
----------
        40


SQL>

那只是个主意； 当然，它可能需要改进（提示：子查询），但是现在您有了一些入门的知识。

Answer 2

如果在UNIX环境中运行sqlplus，则可以使用awk命令将每个分号转换为具有唯一输出文件的假脱机命令。 最后一个是多余的，您可以消除（或修改awk ！）

awk '{gsub(";",";\nspool outputfile_"NR,$0);print}' yoursqlfile.sql >newsqlfile.sql

这将转换一个文件，例如

spool file1
select 1 FROM DUAL;
select 2 FROM DUAL;
select 3 FROM
(select 4 FROM DUAL);
SELECT 5 FROM
DUAL;

至

spool file1
select 1 FROM DUAL;
spool outputfile_2
select 2 FROM DUAL;
spool outputfile_3
select 3 FROM
(select 4 FROM DUAL);
spool outputfile_5
SELECT 5 FROM
DUAL;
spool outputfile_7