使用remove_constants工具檢視Oracle是否使用繫結變數

壹頁書發表於2014-09-19
這個也是Tom大神寫的工具。


下面模擬沒有繫結變數的環境,然後使用該工具檢視
建立實驗帳號
conn / as sysdba
create user edmond identified by edmond;
grant connect,resource,dba to edmond;

create table t(x int);
insert into t select rownum from dual connect by level<=10000;

create or replace procedure p1
as
    l_cnt number;
begin
    for i in 1 .. 10000
    loop
        execute immediate 'select count(*) from t where x=' || i into l_cnt;
    end loop;
end;
/

在一個終端執行p1過程,開啟另一個終端執行如下指令碼:
  1. create table t1 as select sql_text from v$sqlarea;

  2. alter table t1 add sql_text_wo_constants varchar2(1000);

  3. create or replace function
  4. remove_constants( p_query in varchar2 ) return varchar2
  5. as
  6.     l_query long;
  7.     l_char varchar2(1);
  8.     l_in_quotes boolean default FALSE;
  9. begin
  10.     for i in 1 .. length( p_query )
  11.     loop
  12.         l_char := substr(p_query,i,1);
  13.         if ( l_char = '''' and l_in_quotes )
  14.         then
  15.             l_in_quotes := FALSE;
  16.         elsif ( l_char = '''' and NOT l_in_quotes )
  17.         then
  18.             l_in_quotes := TRUE;
  19.             l_query := l_query || '''#';
  20.         end if;
  21.         if ( NOT l_in_quotes ) then
  22.             l_query := l_query || l_char;
  23.         end if;
  24.     end loop;
  25.     l_query := translate( l_query, '0123456789', '@@@@@@@@@@' );
  26.     for i in 0 .. 8 loop
  27.         l_query := replace( l_query, lpad('@',10-i,'@'), '@' );
  28.         l_query := replace( l_query, lpad(' ',10-i,' '), ' ' );
  29.     end loop;
  30.     return upper(l_query);
  31. end;
  32. /
  33. update t1 set sql_text_wo_constants = remove_constants(sql_text);

set linesize 200;
col sql_text_wo_constants format a100;
  1. select sql_text_wo_constants, count(*)
  2.   from t1
  3.  group by sql_text_wo_constants
  4. having count(*) > 100
  5.  order by 2
  6. /

可以看到結果如下,已經找到了沒有繫結變數的語句。




來自 “ ITPUB部落格 ” ,連結:http://blog.itpub.net/29254281/viewspace-1273980/,如需轉載,請註明出處,否則將追究法律責任。

相關文章