使用remove_constants工具查看Oracle是否使用绑定变量
版权声明：
本文内容由阿里云实名注册用户自发贡献，版权归原作者所有，阿里云开发者社区不拥有其著作权，亦不承担相应法律责任。具体规则请查看《
阿里云开发者社区用户服务协议》和
《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容，填写
侵权投诉表单进行举报，一经查实，本社区将立刻删除涉嫌侵权内容。
简介：
这个也是Tom大神写的工具。https://asktom.oracle.com/pls/asktom/f?p=100:11:::::P11_QUESTION_ID:1163635055580下面模拟没有绑定变量的环境,然后使用该工具查看创建实验帐号conn / as ...
这个也是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
-
as
-
l_query long;
-
l_char varchar2(1);
-
l_in_quotes boolean default FALSE;
-
begin
-
for i in 1 .. length( p_query )
-
loop
-
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 )
-
then
-
l_in_quotes := TRUE;
-
l_query := l_query || '''#';
-
end if;
-
if ( NOT l_in_quotes ) then
-
l_query := l_query || l_char;
-
end if;
-
end loop;
-
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,' '), ' ' );
-
end loop;
-
return upper(l_query);
-
end;
-
/
-
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
-
/
可以看到结果如下,已经找到了没有绑定变量的语句。
