Oracle使用profiler来测试PL/SQL的性能

Oracle使用profiler来测试PL/SQL的性能

在Oracle中我们可以很容易的获取sql语句的执行计划，根据执行计划我们就可以基本上判断出该SQL语句的执行效率，那么我们怎么在Oracle中测试PL/SQL代码的执行效率呢？例如我们有一个存储过程testplsql，我想看一下这个存储过程在那一步比较耗时？这个时候我们就可以使用profiler来进行获取这个存储过程的执行效率，废话不多说，我们直接来看看profiler的使用。

1.安装profiler

先在sys用户执行$ORACLE_HOME/rdbms/admin/profload.sql这个脚本，再在需要测试的PL/SQL代码的用户下执行$ORACLE_HOME/rdbms/admin/proftab.sql

例如，在demo用户下有一个存储过程testplsql，我们现在想测试testplsql的运行效率，按照上面的步骤，先在sys用户下执行$ORACLE_HOME/rdbms/admin/profload.sql，再在demo用户下执行$ORACLE_HOME/rdbms/admin/proftab.sql

SQL> show user;
USER is "SYS"

SQL> @?/rdbms/admin/proftab.sql
drop table plsql_profiler_data cascade constraints
           *
ERROR at line 1:
ORA-00942: table or view does not exist
drop table plsql_profiler_units cascade constraints
           *
ERROR at line 1:
ORA-00942: table or view does not exist
drop table plsql_profiler_runs cascade constraints
           *
ERROR at line 1:
ORA-00942: table or view does not exist
drop sequence plsql_profiler_runnumber
              *
ERROR at line 1:
ORA-02289: sequence does not exist
Table created.
Comment created.
Table created.
Comment created.
Table created.
Comment created.
Sequence created.

SQL> conn demo/demo
Connected.

SQL> show user;
USER is "DEMO"
SQL> @?/rdbms/admin/proftab.sql
drop table plsql_profiler_data cascade constraints
           *
ERROR at line 1:
ORA-00942: table or view does not exist
drop table plsql_profiler_units cascade constraints
           *
ERROR at line 1:
ORA-00942: table or view does not exist
drop table plsql_profiler_runs cascade constraints
           *
ERROR at line 1:
ORA-00942: table or view does not exist
drop sequence plsql_profiler_runnumber
              *
ERROR at line 1:
ORA-02289: sequence does not exist
Table created.
Comment created.
Table created.
Comment created.
Table created.
Comment created.
Sequence created.

2.运行测试代码

在需要测试的存储过程的用户下执行下面的代码：

declare
  err number;
 begin
   err :=dbms_profiler.start_profiler(to_char(sysdate,'dd_Mon_YYYY hh:mi:ss'));
   --此处请输入要测试的存储过程名
   err :=dbms_profiler.stop_profiler;
 end;

例如，我们要在测试demo用户下testplsql这个存储过程，则我们在demo用户下执行下面的代码：

declare
  err number;
 begin
   err :=dbms_profiler.start_profiler(to_char(sysdate,'dd_Mon_YYYY hh:mi:ss'));
   testplsql;
   err :=dbms_profiler.stop_profiler;
 end;

其中testplsql的代码为：

create or replace procedure testplsql is
anumber number;
ainteger integer;
anumber_10 number(10);
apls_integer pls_integer;
abinary binary_integer;
err number;
begin
  anumber :=0;
  loop
    anumber :=anumber+1;
    ainteger :=ainteger+1;
    anumber_10 :=anumber_10+1;
    apls_integer :=apls_integer+1;
    abinary :=abinary+1;
    exit when anumber>1500;
   end loop;
end;

3.获取运行id

完成上面的第二步后，我们在需要测试的存储过程用户下执行下面的sql语句，来查询出运行的id：

col run_commnet format a40 truncate;
select runid,run_date,run_comment from plsql_profiler_runs order by runid;

例如，接着我们在demo用户下执行上面这个语句：

SQL> select runid,run_date,run_comment from plsql_profiler_runs order by runid;

     RUNID RUN_DATE  RUN_COMMENT
---------- --------- ----------------------------------------
1 18-FEB-16 18_Feb_2016 05:17:09
2 19-FEB-16 19_Feb_2016 10:00:39
3 19-FEB-16 19_Feb_2016 10:02:18

根据run_comment可以判断出，我们这次测试的runid为3

4.获取测试结果

在3步中我们获取了runid后，这时我们就可以在需要的测试的存储过程用户下直接运行下面的sql语句来获取测试结果：

col unit_name format a15 truncate;
col occured format 999999;
col line# format 99999;
col tot_time format 999.999999;


select p.unit_name,
       p.occured,
       p.tot_time,
       p.line# line,
       substr(s.text, 1, 75) text
  from (select u.unit_name,
               d.total_occur occured,
               (d.total_time / 1000000000) tot_time,
               d.line#
          from plsql_profiler_units u, plsql_profiler_data d
         where d.runid = u.runid
           and d.unit_number = u.unit_number
           and d.total_occur > 0
           and u.runid = &run_id) p,
       user_source s
 where p.unit_name = s.name(+)
   and p.line# = s.line(+)
 order by p.unit_name, p.line#;

例如， 我们在demo用户下运行上面的语句，则会得到下面的结果：

从结果中我们可以很清楚的看出存储过程每一步的耗时，以及发生的次数！

至此，使用profiler测试存储过程的效率已经完成！