[20251010]建立完善tpt的prr.sql脚本.txt

[20251010]建立完善tpt的prr.sql脚本.txt

--//昨天在测试时不小心输入pr命令时多输入一个r，没想到居然执行了，说明在本目录或者SQLPATH环境目录下存在prr.sql脚本。
--//当时忙着处理其他事情，先把这件事情放一放，今天上班优先做一个探究。

1.环境：
SCOTT@book01p> @ ver2
==============================
PORT_STRING                   : x86_64/Linux 2.4.xx
VERSION                       : 21.0.0.0.0
BANNER                        : Oracle Database 21c Enterprise Edition Release 21.0.0.0.0 - Production
BANNER_FULL                   : Oracle Database 21c Enterprise Edition Release 21.0.0.0.0 - Production
Version 21.3.0.0.0
BANNER_LEGACY                 : Oracle Database 21c Enterprise Edition Release 21.0.0.0.0 - Production
CON_ID                        : 0
PL/SQL procedure successfully completed.

$ echo $SQLPATH
/home/oracle/sqllaji:/home/oracle/sqllaji/tpt

$ locate prr.sql
/home/oracle/sqllaji/tpt-oracle-master/prr.sql
/home/oracle/sqllaji/tpt-oracle-master.20250702/prr.sql

--//很明显确实存在1个prr.sql脚本。仔细查看prr.sql脚本发现存在如下内容：
regexp_like(lower(l_descTbl(i).col_name), lower('&1'))

--//也就是可以根据参数1，输入正则表达式显示仅仅显示需要的字段。不过我估计作者也很少使用，存在一些小问题，根据pr.sql脚本
--//做一些改动.

2.改动后脚本如下：
$ cat -v tpt/pr.sql
.
-- Notes:   This script is based on Tom Kyte's original printtbl code ( http://asktom.oracle.com )
--          For coding simplicity (read: lazyness) I'm using custom quotation marks ( q'\ ) so
--          this script works only from Oracle 10gR2 onwards

def _pr_tmpfile=&_tpt_tempdir/pr_&_tpt_tempfile..tmp
def _set_tmpfile=&_tpt_tempdir/set_&_tpt_tempfile..sql

@@saveset
set serverout on size 1000000 termout off
save &_pr_tmpfile replace
set termout on

0 c clob := q'^F
0 declare

999999      ^F';;
999999      l_theCursor     integer default dbms_sql.open_cursor;;
999999      l_columnValue   varchar2(4000);;
999999      l_status        integer;;
999999      l_descTbl       dbms_sql.desc_tab;;
999999      l_colCnt        number;;
999999  begin
999999      dbms_sql.parse(  l_theCursor, c, dbms_sql.native );;
999999      dbms_sql.describe_columns( l_theCursor, l_colCnt, l_descTbl );;
999999      for i in 1 .. l_colCnt loop
999999          dbms_sql.define_column( l_theCursor, i,
999999                                  l_columnValue, 4000 );;
999999      end loop;;
999999      l_status := dbms_sql.execute(l_theCursor);;
999999      while ( dbms_sql.fetch_rows(l_theCursor) > 0 ) loop
999999          dbms_output.put_line( '==============================' );;
999999          for i in 1 .. l_colCnt loop
999999                  dbms_sql.column_value( l_theCursor, i,
999999                                         l_columnValue );;
999999                  dbms_output.put_line
999999                      ( rpad( l_descTbl(i).col_name,
999999                        30 ) || ': ' || l_columnValue );;
999999          end loop;;
999999      end loop;;
999999  exception
999999      when others then
999999          dbms_output.put_line(dbms_utility.format_error_backtrace);;
999999          raise;;
999999 end;;
/

set serverout off term on
@@loadset

get &_pr_tmpfile nolist
host &_delete &_pr_tmpfile &_set_tmpfile

--//注：里面的^F在linux下的插入模式按ctrl+v，ctrl+f输入，这样SQL语句里基本不存在^F字符，不会遇到冲突的可能。
--//另外注意脚本开始的. 不是多余的字符。

3.测试：
SCOTT@book01p> select * from emp where sal>3400;
     EMPNO ENAME      JOB              MGR HIREDATE                   SAL       COMM     DEPTNO
---------- ---------- --------- ---------- ------------------- ---------- ---------- ----------
      7839 KING       PRESIDENT            1981-11-17 00:00:00       5000                    10

--//@ prr * 相当于执行@ pr ，结果我不贴出了。

SCOTT@book01p> @ prr e
==============================
EMPNO                         : 7839
ENAME                         : KING
HIREDATE                      : 1981-11-17 00:00:00
DEPTNO                        : 10
PL/SQL procedure successfully completed.
--//输入E表示输出仅仅含有e字符的字段。

SCOTT@book01p> @ prr ^e
==============================
EMPNO                         : 7839
ENAME                         : KING
PL/SQL procedure successfully completed.
--//输入E开头的字段。

SCOTT@book01p> @ prr deptno|ename|empno
==============================
EMPNO                         : 7839
ENAME                         : KING
DEPTNO                        : 10
PL/SQL procedure successfully completed.
--//输入deptno|ename|empno，表示输出deptno，ename，empno三个字段。

SCOTT@book01p> @ prr [^HIREdate|mgr]
==============================
EMPNO                         : 7839
ENAME                         : KING
JOB                           : PRESIDENT
SAL                           : 5000
COMM                          :
DEPTNO                        : 10
PL/SQL procedure successfully completed.
--//表示输出除HIREdate，mgr外其他字段。

SCOTT@book01p> @ prr e$
==============================
ENAME                         : KING
HIREDATE                      : 1981-11-17 00:00:00
PL/SQL procedure successfully completed.
--//表示输出e结尾的字段。

--//还可以像pr.sql那样调用prr.sql，例子如下：
SCOTT@book01p> select * from emp where sal>3400
  2  @ prr deptno|ename|empno
==============================
EMPNO                         : 7839
ENAME                         : KING
DEPTNO                        : 10
PL/SQL procedure successfully completed.

SCOTT@book01p> select * from v$database
  2  @ prr supp|^dbid
==============================
DBID                          : 1617337831
SUPPLEMENTAL_LOG_DATA_MIN     : YES
SUPPLEMENTAL_LOG_DATA_PK      : NO
SUPPLEMENTAL_LOG_DATA_UI      : NO
SUPPLEMENTAL_LOG_DATA_FK      : NO
SUPPLEMENTAL_LOG_DATA_ALL     : NO
SUPPLEMENTAL_LOG_DATA_PL      : NO
SUPPLEMENTAL_LOG_DATA_SR      : NO
PL/SQL procedure successfully completed.

--//注：该脚本还调用saveset.sql，loadset.sql脚本，如果你不想安装tpt的整个脚本集合。可以自己做一点点改动就可以实现相似的
--//功能。
--//注解saveset，loadset，自己定义_pr_tmpfile，_set_tmpfile，_delete满足需求就可以了。