Tom新书的一个小bug——mystat脚本

今天在看Tom的新书Oracle9i&10g编程艺术发现了一个小问题。

Tom在这本书开头部分介绍了他自己的常用工具，其中包括mystat脚本。这个脚本的目的是获取一个操作的某个统计结果变化情况。

其中由两个脚本构成，mystat记录状态的初始状态，mystat2记录最终状态，并显示差异。

书中给出的mystat脚本如下：

SET ECHO OFF
H8g:d(?E7yeu0SET VERIFY OFFITPUB个人空间2C-p.Qj B5h,h4Y'I*G
COLUMN VALUE NEW_VAL VITPUB个人空间w/n-c V#Uz;?]
DEFINE S="&1"ITPUB个人空间 |_B v+gZk/r?}5I
SET AUTOTRACE OFF
ceGQzA` aO0SELECT A.NAME, B.VALUE
g.d9Cqx4~wQ0FROM V$STATNAME A, V$MYSTAT BITPUB个人空间`2}y
n;aBTY
WHERE A.STATISTIC# = B.STATISTIC#
y%t-]?UyX0AND LOWER(A.NAME) LIKE '%' || LOWER('&S') || '%'ITPUB个人空间zj`+q4CF
/
-tq*~c G
BM Ox0SET ECHO ON

另一个脚本mystat2如下：

SET ECHO OFFITPUB个人空间x7Y0^@T;@(l\
SET VERIFY OFFITPUB个人空间 WvP,{W`tbD\e
SELECT A.NAME, B.VALUE V, TO_CHAR(B.VALUE - &V, '999,999,999,999') DIFFITPUB个人空间y/?b^V+y$h9? R
FROM V$STATNAME A, V$MYSTAT B

z|tq/gS0WHERE A.STATISTIC# = B.STATISTIC#
,E:J#r2Y4V` p$F0m3T m0AND LOWER(A.NAME) LIKE '%' || LOWER('&S') || '%'ITPUB个人空间Z^VN8m
B W#?
/ITPUB个人空间l Pz!u0FG c
SET ECHO ON

看一下这两个脚本的使用：

SQL> @e:\mystat "undo change vector size"
)Mc%Q~_@%`0SQL> SET ECHO OFF

NAME                                VALUE
/B&ROdN!i
k0------------------------------ ----------
cR8Cw#K
J0undo change vector size                 0

SQL> delete t;

已删除4行。

SQL> @e:\mystat2ITPUB个人空间+R$vcHmIs7I7Gv
SQL> SET ECHO OFF

NAME                                    V DIFF
#{#E8Rt-{#m:\H0------------------------------ ---------- ----------------ITPUB个人空间cs S5TE(HD
undo change vector size              1592            1,592

书中给出的例子没有任何的问题，但是脚本本身存在问题。

由于Tom使用了SQLPLUS的NEW_VALUE功能来获取前后两次统计结果的差异，因此这个功能仅对单个统计项有效。

但是Tom给出的脚本中在输入的统计项两边追加了%，使得统计项可以模糊匹配，这虽然方便了查询输入，但是很容易造成输入的关键字匹配多个统计项。而一旦出现这种情况，则MYSTAT2脚本中的差异统计就会完全错误：

SQL> @e:\mystat "redo"ITPUB个人空间a;_ U%M.uYI
SQL> SET ECHO OFF

NAME                                VALUE
8W8A+G8FsW0------------------------------ ----------
!o,kKCf0redo synch writes                       1
i(e-y2[ c_r}0redo synch time                         1ITPUB个人空间!x0B3CxU` KI
redo blocks read for recovery           0ITPUB个人空间o.meq8r{
redo entries                            6ITPUB个人空间7MmYMJrk?6a
redo size                            4152
O@+I-ZCy vv0redo buffer allocation retries          0
l0Y?nj Xqt%zV/~0N0redo wastage                            0
T.uM^.g)|9gw1k0redo writer latching time               0

NL"l$r0zz"v0redo writes                             0
g*_
] Ja0redo blocks written                     0ITPUB个人空间d'U9iNMt
redo write time                         0
MO{$b`9V[{K!Y0redo log space requests                 0ITPUB个人空间%v&O+C,SwW
redo log space wait time                0
w7q Ff ?G0redo log switch interrupts              0
M`YUdz0redo ordering marks                     0ITPUB个人空间HgTKYMQB}{/t
redo subscn max counts                  0ITPUB个人空间"Z)ecq(Uc7j*E&n
IMU Redo allocation size             1248

已选择17行。

SQL> create table t_redo as select * from dba_objects;

表已创建。

SQL> @e:\mystat2
/XQU:?Z:a7M h,`0SQL> SET ECHO OFF

NAME                                    V DIFF
!Jr{ z9].{ {*k0------------------------------ ---------- ----------------ITPUB个人空间qx yj"\ U+S9vq
redo synch writes                       3           -1,245
n1BnEHhf0redo synch time                         1           -1,247
5[
mQf.H:^_(T3[/`0redo blocks read for recovery           0           -1,248
iZp1Am*K"?'?1n,pE0redo entries                         1223              -25
[_&I5?$H8q0redo size                         5817596        5,816,348
%J0Y PV#nLa5J0redo buffer allocation retries          0           -1,248ITPUB个人空间1z/p_m#F
redo wastage                            0           -1,248ITPUB个人空间4P;EPbWEt;bU
redo writer latching time               0           -1,248ITPUB个人空间D*fh*C(Y*wf!s
redo writes                             0           -1,248
G_;z/ky9L'?!M0redo blocks written                     0           -1,248ITPUB个人空间Wph.K"_
EDL(NsG
redo write time                         0           -1,248
Fc yQ8G:d$vO!E w0redo log space requests                 0           -1,248

a1i
y'C9X0Qj)j0redo log space wait time                0           -1,248ITPUB个人空间z^d!zW y:wj
redo log switch interrupts              0           -1,248
v*r,ZODDl0redo ordering marks                    20           -1,228ITPUB个人空间Bc&]:V!D
redo subscn max counts                  0           -1,248
b&W~ y~V~/wI0IMU Redo allocation size             1248                0

已选择17行。

这个结果已经很清晰的说明了问题，因此这里应该将脚本从LIKE方式改为等于的方式，这样可以避免错误的发生。