1

有没有更好的方法在 Oracle PL/SQL 中打印到 STDOUT？

DBMS_OUTPUT.PUT_LINE 看起来非常基本和粗略。应该有 Python 的 pprint（Pretty Print）之类的东西吗？

4

6 回答 6

5

PL/SQL旨在处理数据，而不是显示数据，或与调用它的客户端交互（例如，没有用户输入机制）。

该DBMS_OUTPUT包“使您能够从存储过程和包发送消息。该包对于显示 PL/SQL 调试信息特别有用”。它不是为“漂亮”的输出而设计的，因为 PL/SQL 不是为这种工作而设计的。重要的是要意识到调用您的过程的客户端可能不会查看或显示 DBMS_OUTPUT 缓冲区，因此您写入的内容可能会丢失。

PL/SQL 不会将任何内容打印到标准输出；DBMS_OUTPUT 调用写入缓冲区 - 如果它完全启用 - 然后一旦 PL/SQL 完成执行，客户端就可以读取该缓冲区并在某处显示内容（如果已启用，则再次显示）。这也意味着您不能使用它来跟踪进度，因为在执行期间您看不到任何东西，只有在它完成时才能看到；因此，即使对于调试，它也不总是最好的工具。

根据您要执行的操作，您可以通过做来使 SQL*Plus 中的事情看起来稍微好一些set serveroutput on format wrapped，这会阻止它在缓冲区行的开头丢失空格。但这通常是一个很小的好处。

更一般地，您的过程应该通过 OUT 参数将其处理结果传递给调用者，或者通过使其成为返回有用信息的函数。

如果您当前正在尝试使用dbms_output.put_linethen 显示查询结果，那不是一个好主意。您可以改为将集合或引用光标返回给客户端，并让客户端担心如何显示它。您可以使用绑定变量轻松地在 SQL*Plus 或 SQL Developer 中显示引用游标。

于 2016-05-23T17:31:23.157 回答
2

够漂亮吗？

 --Pretty print
CREATE OR REPLACE PROCEDURE PP(input varchar2, p_pn varchar2:='PP')
AS
   pos   INTEGER;
   len   INTEGER      := 4000;
   nl    VARCHAR2 (2) := CHR (10);
   r_    VARCHAR2 (2) := CHR (13);
   v_padded varchar2(64):=p_pn;--rpad(p_pn, 5, ' ');
BEGIN
   IF LENGTH (input) > len
   THEN
      pos := INSTR (input, nl, 1, 1);
      IF pos > 0 AND pos < len
      THEN
         DBMS_OUTPUT.put_line (v_padded||': '||REPLACE (SUBSTR (input, 1, pos - 1), r_, ''));
         pp (SUBSTR (input, pos + 1),p_pn);
      ELSE
         IF pos = 0 AND LENGTH (input) <= len
         THEN
  DBMS_OUTPUT.put_line (v_padded||': '||REPLACE (SUBSTR (input, 1, len), r_, ''));
         ELSE
  DBMS_OUTPUT.put_line (v_padded||': '||REPLACE (SUBSTR (input, 1, len), r_, ''));
  pp (SUBSTR (input, len + 1),p_pn);
         END IF;
      END IF;
   ELSE
      DBMS_OUTPUT.put_line (v_padded||': '||REPLACE (SUBSTR (input, 1, len), r_, ''));
   END IF;
EXCEPTION
   WHEN OTHERS
   THEN
      RAISE;
END PP;

样本输出：

SQL>
FUN_ENCRYPT_PERSON_ID: Input  = 123456789123
FUN_ENCRYPT_PERSON_ID: Suffix = 123
FUN_ENCRYPT_PERSON_ID: Base   = 876543210
FUN_ENCRYPT_PERSON_ID: 2->5 1 10000     10000
FUN_ENCRYPT_PERSON_ID: 3->9 2 200000000 200010000
FUN_ENCRYPT_PERSON_ID: 4->2 3 30        200010030
FUN_ENCRYPT_PERSON_ID: 5->1 4 4         200010034
FUN_ENCRYPT_PERSON_ID: 6->3 5 500       200010534
FUN_ENCRYPT_PERSON_ID: 7->6 6 600000    200610534
FUN_ENCRYPT_PERSON_ID: 8->4 7 7000      200617534
FUN_ENCRYPT_PERSON_ID: 9->8 8 80000000  280617534
FUN_ENCRYPT_PERSON_ID: Output = 280617534123
于 2016-05-23T21:00:02.863 回答
1

实际上有一种标准方法，但它只适用于 varchar 变量：

declare
  v_str varchar2(100):= 'formatted';
  v_int int := 10 ;
begin
  dbms_output.put_line(
     UTL_LMS.FORMAT_MESSAGE('Somebody told that "%s" output works well with ' 
                            ||'varchar variables, but not with int variables: "%d". '
                            ||'Only with constant integers (%d) it works.'
                            , v_str, v_int, 100)                            
  );
end;
于 2016-05-24T08:54:58.197 回答
1

没有我知道的内置函数。但是我编写了一个过程来从存储过程中漂亮地打印结果集。

该过程称为 print_out_resultset。示例用法：

....
cursor mycur (mynum in number) is
select * from mytable where mycol >= mynum; 

myrow mytable%rowtype;
myvar number;
...
begin
....

print_out_resultset(query_string =>
  'select * from mytable where mycol >= :b1',
  col1 => 'SAM', col2 => 'FRED', col3 => 'ERIC',
  b1 => myvar,
  maxrows => 4);

open mycur(myvar);
fetch mycur into myrow;
while mycur%found loop
....

示例结果

SQL> set serverout on;
SQL> execute myproc;
SAM         FRED        ERIC       
-----------------------------------
32A         49B         15C
34A         11B         99C
11F         99A         887
77E         88J         976

代码在这里：http ://toolkit.rdbms-insight.com/print_out_resultset.php

许多年前，我仅将其用于故障排除；当然在生产部署之前进行测试

于 2016-05-23T20:28:55.393 回答
1

如果您尝试打印 json 对象，可以使用JSON_UTIL_PKG和JSON_PRINTER进行打印。

  L_JSON_LIST         JSON_LIST;
  L_JSON              JSON;
  L_CLOB              CLOB;
BEGIN
  --JSON_UTIL_PKG.SQL_TO_JSON returns a list, so storing it in a JSON_LIST.
  L_JSON_LIST := JSON_UTIL_PKG.SQL_TO_JSON('SELECT
                                      ''abc'' "Address1",
                                      ''def'' "Address2",
                                      ''gh'' "City"
                                     FROM
                                       DUAL');
  DBMS_LOB.CREATETEMPORARY(L_CLOB, TRUE);                            
  --get the first item in the list
  L_JSON :=       JSON(L_JSON_LIST.GET(1));
  --It takes a json object and will return it in a clob.
  JSON_PRINTER.PRETTY_PRINT(OBJ => L_JSON, BUF => L_CLOB); 

  --output  
  DBMS_OUTPUT.PUT_LINE(L_CLOB);                                    
END;

而且，输出如下所示，

{
  "Address1" : "abc"
,
  "Address2" : "def"
,
  "City" : "gh"

}
于 2020-04-08T20:42:55.977 回答
0

也许您正在寻找 fnd_file 功能

fnd_file.put_line(fnd_file.output,:message);

其中 :message 是您要打印的值。

于 2020-04-10T21:09:39.870 回答