oracle-如何将DBMS_OUTPUT.PUT_LINE的输出重定向到文件？

我需要在pl / sql中进行调试以计算过程次数，我想使用：

SELECT systimestamp FROM dual INTO time_db;

DBMS_OUTPUT.PUT_LINE('time before procedure ' || time_db);

但我不知道输出将到达何处，以及如何将其重定向到包含我要收集的所有数据的日志文件？

10个解决方案

37 votes

DBMS_OUTPUT并不是最佳的调试工具，因为大多数环境都不是本地使用的。 但是，如果要捕获DBMS_OUTPUT的输出，则只需使用DBMS_OUTPUT.get_line过程。

这是一个小例子：

SQL> create directory tmp as '/tmp/';

Directory created

SQL> CREATE OR REPLACE PROCEDURE write_log AS

2 l_line VARCHAR2(255);

3 l_done NUMBER;

4 l_file utl_file.file_type;

5 BEGIN

6 l_file := utl_file.fopen('TMP', 'foo.log', 'A');

7 LOOP

8 EXIT WHEN l_done = 1;

9 dbms_output.get_line(l_line, l_done);

10 utl_file.put_line(l_file, l_line);

11 END LOOP;

12 utl_file.fflush(l_file);

13 utl_file.fclose(l_file);

14 END write_log;

15 /

Procedure created

SQL> BEGIN

2 dbms_output.enable(100000);

3 -- write something to DBMS_OUTPUT

4 dbms_output.put_line('this is a test');

5 -- write the content of the buffer to a file

6 write_log;

7 END;

8 /

PL/SQL procedure successfully completed

SQL> host cat /tmp/foo.log

this is a test

Vincent Malgrat answered 2020-07-06T02:11:24Z

31 votes

作为写文件的替代方法，写表如何？ 除了调用DBMS_OUTPUT.PUT_LINE，您还可以调用自己的DEBUG.OUTPUT过程，例如：

procedure output (p_text varchar2) is

pragma autonomous_transaction;

begin

if g_debugging then

insert into debug_messages (username, datetime, text)

values (user, sysdate, p_text);

commit;

end if;

end;

自主事务的使用使您可以保留由回滚的事务(例如，引发异常后)产生的调试消息，就像使用文件时那样。

g_debugging布尔变量是一个程序包变量，可以在需要调试输出时将其默认设置为false并设置为true。

当然，您需要管理该表，以使其不会永远增长！ 一种方法是每天/每周运行一次的作业，并删除所有“旧”的调试消息。

Tony Andrews answered 2020-07-06T02:11:57Z

14 votes

用将serveroutput设置为on;

例如：

set serveroutput on;

DECLARE

x NUMBER;

BEGIN

x := 72600;

dbms_output.put_line('The variable X = '); dbms_output.put_line(x);

END;

Mahmoud Hanafy answered 2020-07-06T02:12:21Z

14 votes

如果您只是在SQL Plus中测试PL / SQL，则可以将其定向到以下文件：

spool output.txt

set serveroutput on

begin

SELECT systimestamp FROM dual INTO time_db;

DBMS_OUTPUT.PUT_LINE('time before procedure ' || time_db);

end;

/

spool off

像Toad和SQL Developer这样的IDE可以通过其他方式捕获输出，但是我不熟悉该怎么做。

Tony Andrews answered 2020-07-06T02:12:46Z

5 votes

除了Tony的答案之外，如果您想查找PL / SQL程序在哪里花时间，也值得一看Oracle PL / SQL文档的这一部分。

Ian Carpenter answered 2020-07-06T02:13:07Z

3 votes

使用UTL_FILE而不是DBMS_OUTPUT将输出重定向到文件：

[HTTP://哦Reilly.com/catalog/Oracle把IP/chapter/吃06.HTML]

Rafa de Castro answered 2020-07-06T02:13:31Z

3 votes

另外，请记住，所有这些输出都是在服务器端生成的。

使用DBMS_OUTPUT，文本将在执行查询时在服务器中生成并存储在缓冲区中。 服务器完成查询数据检索后，它将重定向到您的客户端应用程序。 也就是说，仅在查询结束时才获得此信息。

使用UTL_FILE，所有记录的信息将存储在服务器中的文件中。 执行完成后，您将必须导航至该文件以获取信息。

希望这可以帮助。

Juan Calero answered 2020-07-06T02:14:05Z

1 votes

可以将文件直接写入托管数据库的DB服务器，并且随着PL / SQL程序的执行而改变。

这使用Oracle目录TMP_DIR; 您必须声明它，并创建以下过程：

CREATE OR REPLACE PROCEDURE write_log(p_log varchar2)

-- file mode; thisrequires

--- CREATE OR REPLACE DIRECTORY TMP_DIR as '/directory/where/oracle/can/write/on/DB_server/';

AS

l_file utl_file.file_type;

BEGIN

l_file := utl_file.fopen('TMP_DIR', 'my_output.log', 'A');

utl_file.put_line(l_file, p_log);

utl_file.fflush(l_file);

utl_file.fclose(l_file);

END write_log;

/

这里是如何使用它：

1)从您的SQL * PLUS客户端启动它：

BEGIN

write_log('this is a test');

for i in 1..100 loop

DBMS_LOCK.sleep(1);

write_log('iter=' || i);

end loop;

write_log('test complete');

END;

/

2)在数据库服务器上，打开一个shell并

tail -f -n500 /directory/where/oracle/can/write/on/DB_server/my_output.log

J. Chomel answered 2020-07-06T02:14:42Z

-1 votes

旧线程，但是还有另一种选择。

从9i开始，您可以使用流水线表功能。

首先，创建一个类型作为varchar表：

CREATE TYPE t_string_max IS TABLE OF VARCHAR2(32767);

其次，将代码包装在流水线函数声明中：

CREATE FUNCTION fn_foo (bar VARCHAR2) -- your params

RETURN t_string_max PIPELINED IS

-- your vars

BEGIN

-- your code

END;

/

将所有DBMS_OUTPUT.PUT_LINE替换为PIPE ROW。

最后，这样称呼它：

SELECT * FROM TABLE(fn_foo('param'));

希望能帮助到你。

Felypp Oliveira answered 2020-07-06T02:15:28Z

-4 votes

试试这个：

SELECT systimestamp INTO time_db FROM dual ;

DBMS_OUTPUT.PUT_LINE('time before procedure ' || time_db);

Mark answered 2020-07-06T02:15:48Z

打印至控制台(有显示)：

SET SERVEROUTPUT ON

BEGIN

DBMS_OUTPUT.PUT_LINE('Hey look, Ma!');

END;

/

如果想要dbms_output.put_line()等方法的输出能够在客户端看见的话，请

set serverouput on;

例子:

declare

empname emp.ename%type;

sno emp.empno%type;

iCount int:=0;

begin

sno:='7369';

empname:='jade';

dbms_output.put_line('employee no is '||sno||' employee name is '||empname);

select empno,ename into sno,empname from emp where empno='7369';

dbms_output.put_line('employee no is '||sno||' employee name is '||empname);

select count(*) into iCount from emp where sal>2000;

if iCount>0  then

dbms_output.put_line('有工资大于2000的人的信息'||iCount);

else

dbms_output.put_line('没有');

end if;

end;

异常

如同JVM一样，Oralce是最终异常处理人员；但是他们的处理结果对用户而言是不好理解的，因为他们的语言是如此地不友好，如此的ugly;

所以我们最好是自己捕获处理异常；

步骤：

1．声明异常

2．引发异常

3．处理异常

类型：

1，预定义的异常：不需要显式声明；dbms_standard程序包里有定义；

例子：    dbms_output.put_line('employee job is '||empjob);

exception

when no_data_found then

dbms_output.put_line('no data return');

如果不处理异常，程序就会报告Error而不是异常，不同于Java;

但是程序流程是一样的，出错后，后面的代码都不再执行，直接退出；

用户处理的话，出错后，处理后，其他的可以继续执行错误处理后面的代码，这和Java一样；

When others then

处理动作;

这里的others表示未知的异常发生时；这是个很保险的方法，类似用Exception的效果；其他的异常都是others的一个子类型；

2，非预定义的异常：数据库本身不知道不能控制的，比如操作系统崩溃；

Oralce服务器错误

网络或者机器I/O错误

3，用户定义的异常：有个类型叫exception类型

例子：

1  declare

2        dup_value exception;

3        icount int:=0;

4  begin

5        select count(*) into icount from place

6            where placeid='001';

7        if icount>0 then

8raise dup_value;

9        end if;

10  exception

11        when dup_value then

12             dbms_output.put_line('already have the note');

13* end;

already have the note