Chinaunix首页 | 论坛 | 博客
  • 博客访问: 11680251
  • 博文数量: 8065
  • 博客积分: 10002
  • 博客等级: 中将
  • 技术积分: 96708
  • 用 户 组: 普通用户
  • 注册时间: 2008-04-16 17:06
文章分类

全部博文(8065)

文章存档

2008年(8065)

分类: 服务器与存储

2008-07-16 10:19:47

Oracle在调用函数的时候可以将调用过程直接替换为子查询的代码,这样可以避免在运行过程中调用开销,Oracle提供了一个新的PRAGMA INLINE来指示函数是否进行INLINE优化:

SQL> CREATE OR REPLACE FUNCTION F_TEST (P_IN IN NUMBER) RETURN NUMBER AS
2 BEGIN
3 IF P_IN > 1 THEN
4 RETURN P_IN + F_TEST(P_IN - 1);
5 ELSE
6 RETURN 1;
7 END IF;
8 END;
9 /

函数已创建。

SQL> CREATE OR REPLACE FUNCTION F_TEST_INLINE (P_IN IN NUMBER) RETURN NUMBER AS
2 BEGIN
3 IF P_IN > 1 THEN
4 PRAGMA INLINE (F_TEST_INLINE, 'YES');
5 RETURN P_IN + F_TEST_INLINE(P_IN - 1);
6 ELSE
7 RETURN 1;
8 END IF;
9 END;
10 /

函数已创建。

分别建立两个递归调用的函数,一个使用了11g提供的PRAGMA INLINE,强制Oracle对函数F_TEST_INLINE进行INLINE优化,看看调用两个函数所需的时间:

SQL> SET TIMING ON
SQL> SELECT F_TEST_INLINE(1000000) FROM DUAL;

F_TEST_INLINE(1000000)
----------------------
5.0000E+11

已用时间: 00: 00: 01.32
SQL> SELECT F_TEST(1000000) FROM DUAL;

F_TEST(1000000)
---------------
5.0000E+11

已用时间: 00: 00: 18.68
SQL> SELECT F_TEST_INLINE(1000000) FROM DUAL;

F_TEST_INLINE(1000000)
----------------------
5.0000E+11

已用时间: 00: 00: 00.42
SQL> SELECT F_TEST(1000000) FROM DUAL;

F_TEST(1000000)
---------------
5.0000E+11

已用时间: 00: 00: 00.57

无论是第一次调用,还是第二次调用,使用了INLINE的方法都比普通调用有一个明显的性能提升。

除了强制使用PRAGMA INLINE方法外,Oracle还提供了自动INLINE的方式,只需要将初始化参数PLSQL_OPTIMIZE_LEVLE设置为3,Oracle会自动选择合适的过程进行INLINE优化:

SQL> SHOW PARAMETER PLSQL_OPTIMIZE_LEVEL

NAME TYPE VALUE
------------------------------------ ----------- ------------------------------
plsql_optimize_level integer 2
SQL> ALTER SESSION SET PLSQL_OPTIMIZE_LEVEL = 3;

会话已更改。

SQL> CREATE OR REPLACE FUNCTION F_TEST (P_IN IN NUMBER) RETURN NUMBER AS
2 BEGIN
3 IF P_IN > 1 THEN
4 RETURN P_IN + F_TEST(P_IN - 1);
5 ELSE
6 RETURN 1;
7 END IF;
8 END;
9 /

函数已创建。

SQL> SELECT F_TEST(1000000) FROM DUAL;

F_TEST(1000000)
---------------
5.0000E+11

已用时间: 00: 00: 00.40
SQL> SELECT F_TEST(1000000) FROM DUAL;

F_TEST(1000000)
---------------
5.0000E+11

已用时间: 00: 00: 00.46

可以看到设置了自动优化功能,F_TEST函数的调用也达到了PRAGMA INLINE函数的相同效果。需要说明的是,INLINE优化在大部分情况下会带来性能的提升,但是这个性能的提升是以占用更多的内存为代价的。下面看看两种方式的统计差别:

SQL> ALTER SESSION SET PLSQL_OPTIMIZE_LEVEL = 2;

会话已更改。

SQL> CREATE OR REPLACE FUNCTION F_TEST (P_IN IN NUMBER) RETURN NUMBER AS
2 BEGIN
3 IF P_IN > 1 THEN
4 RETURN P_IN + F_TEST(P_IN - 1);
5 ELSE
6 RETURN 1;
7 END IF;
8 END;
9 /

函数已创建。

SQL> CREATE OR REPLACE FUNCTION F_TEST_INLINE (P_IN IN NUMBER) RETURN NUMBER AS
2 BEGIN
3 IF P_IN > 1 THEN
4 PRAGMA INLINE (F_TEST_INLINE, 'YES');
5 RETURN P_IN + F_TEST_INLINE(P_IN - 1);
6 ELSE
7 RETURN 1;
8 END IF;
9 END;
10 /

函数已创建。

SQL> SET SERVEROUT ON
SQL> DECLARE
2 V_NUMBER1 NUMBER;
3 V_NUMBER2 NUMBER;
4 V_RES NUMBER;
5 BEGIN
6
7 INSERT INTO T_SESSION_STAT SELECT 1, 'STAT:' || NAME, VALUE
8 FROM V$SESSTAT A, V$STATNAME B
9 WHERE A.STATISTIC# = B.STATISTIC#
10 AND A.SID = (SELECT SID FROM V$MYSTAT WHERE ROWNUM = 1)
11 UNION ALL
12 SELECT 1, 'LATCH:' || NAME, GETS VALUE FROM V$LATCH;
13
14 V_NUMBER1 := DBMS_UTILITY.GET_TIME;
15 V_RES := F_TEST_INLINE(1000000);
16 V_NUMBER1 := DBMS_UTILITY.GET_TIME - V_NUMBER1;
17
18 INSERT INTO T_SESSION_STAT SELECT 2, 'STAT:' || NAME, VALUE
19 FROM V$SESSTAT A, V$STATNAME B
20 WHERE A.STATISTIC# = B.STATISTIC#
21 AND A.SID = (SELECT SID FROM V$MYSTAT WHERE ROWNUM = 1)
22 UNION ALL
23 SELECT 2, 'LATCH:' || NAME, GETS VALUE FROM V$LATCH;
24
25 V_NUMBER2 := DBMS_UTILITY.GET_TIME;
26 V_RES := F_TEST(1000000);
27 V_NUMBER2 := DBMS_UTILITY.GET_TIME - V_NUMBER2;
28
29 INSERT INTO T_SESSION_STAT SELECT 3, 'STAT:' || NAME, VALUE
30 FROM V$SESSTAT A, V$STATNAME B
31 WHERE A.STATISTIC# = B.STATISTIC#
32 AND A.SID = (SELECT SID FROM V$MYSTAT WHERE ROWNUM = 1)
33 UNION ALL
34 SELECT 3, 'LATCH:' || NAME, GETS VALUE FROM V$LATCH;
35
36 DBMS_OUTPUT.PUT_LINE('1 EXECUTE ' || V_NUMBER1/100 || ' SECONDS');
37 DBMS_OUTPUT.PUT_LINE('2 EXECUTE ' || V_NUMBER2/100 || ' SECONDS');
38
39 FOR C IN
40 (
41 SELECT *
42 FROM
43 (
44 SELECT A.NAME, C.VALUE + A.VALUE - 2 * B.VALUE VALUE
45 FROM
46 T_SESSION_STAT A,
47 T_SESSION_STAT B,
48 T_SESSION_STAT C
49 WHERE A.NAME = B.NAME
50 AND A.NAME = C.NAME
51 AND A.ID = 1
52 AND B.ID = 2
53 AND C.ID = 3
54 )
55 WHERE ABS(VALUE) > 100
56 ) LOOP
57 DBMS_OUTPUT.PUT_LINE(RPAD(C.NAME, 50, ' ') || C.VALUE);
58 END LOOP;
59
60 END;
61 /
P1 EXECUTE 1.4 SECONDS
P2 EXECUTE 2.26 SECONDS
STAT:session pga memory 89194496

PL/SQL 过程已成功完成。

Oracle的inline操作将调用操作直接替换为程序的代码,避免了调用的开销,获得了明显的性能提升,但是这种方法消耗更多的PGA内容也是显而易见的。

对于特别复杂的调用情况,或者递归、循环调用次数过多,可能会造成INLINE调用方式的内存占用过大,从而导致性能下降甚至出现内存耗尽的情况。INLINE带来的并非总是性能的提升,使用不当也可能造成严重的性能问题

Oracle提供的PRAGMA INLINE同样可以强制禁止过程INLINE优化的发生。
阅读(373) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~