使用remove_constants工具檢視Oracle是否使用綁定變量

這個也是Tom大神寫的工具。

https://asktom.oracle.com/pls/asktom/f?p=100:11:::::P11_QUESTION_ID:1163635055580

下面模拟沒有綁定變量的環境,然後使用該工具檢視

建立實驗帳号

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過程,開啟另一個終端執行如下腳本:

create table t1 as select sql_text from v$sqlarea;

alter table t1 add sql_text_wo_constants varchar2(1000);

create or replace function

remove_constants( p_query in varchar2 ) return varchar2

    l_query long;

    l_char varchar2(1);

    l_in_quotes boolean default FALSE;

    for i in 1 .. length( p_query )

        l_char := substr(p_query,i,1);

        if ( l_char = '''' and l_in_quotes )

        then

            l_in_quotes := FALSE;

        elsif ( l_char = '''' and NOT l_in_quotes )

            l_in_quotes := TRUE;

            l_query := l_query || '''#';

        end if;

        if ( NOT l_in_quotes ) then

            l_query := l_query || l_char;

    l_query := translate( l_query, '0123456789', '@@@@@@@@@@' );

    for i in 0 .. 8 loop

        l_query := replace( l_query, lpad('@',10-i,'@'), '@' );

        l_query := replace( l_query, lpad(' ',10-i,' '), ' ' );

    return upper(l_query);

update t1 set sql_text_wo_constants = remove_constants(sql_text);

set linesize 200;

col sql_text_wo_constants format a100;

select sql_text_wo_constants, count(*)

  from t1

 group by sql_text_wo_constants

having count(*) > 100

 order by 2

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