Oracle学习笔记十四 内置程序包

• 扩展数据库的功能
• 为 PL/SQL 提供对 SQL 功能的访问
• 用户 SYS 拥有所有程序包
• 是公有同义词
• 可以由任何用户访问

一些内置程序包

DBMS_OUTPUT包显示 PL/SQL 块和子程序的调试信息。

SET SERVEROUTPUT ON
BEGIN
  DBMS_OUTPUT.PUT_LINE(‘打印三角形‘);
  FOR i IN 1..9 LOOP
    FOR j IN 1..i LOOP
      DBMS_OUTPUT.PUT(‘*‘);
    END LOOP for_j;
    DBMS_OUTPUT.NEW_LINE;
  END LOOP for_i;
END;

DBMS_LOB 包提供用于处理大型对象的过程和函数

DBMS_XMLQUERY 包用于将查询结果转换为 XML 格式

DECLARE
  result CLOB;
  xmlstr VARCHAR2(32767);
  line   VARCHAR2(2000);
  line_no INTEGER := 1;
BEGIN
  result := DBMS_XMLQuery.getXml(‘SELECT empno, ename
  FROM employee‘);
  xmlstr := DBMS_LOB.SUBSTR(result,32767);
  LOOP
    EXIT WHEN xmlstr IS NULL;
    line := SUBSTR(xmlstr,1,INSTR(xmlstr,CHR(10))-1);
    DBMS_OUTPUT.PUT_LINE(line_no || ‘:‘ || line);
    xmlstr := SUBSTR(xmlstr,INSTR(xmlstr,CHR(10))+1);
    line_no := line_no + 1;
  END LOOP;
END;

DBMS_RANDOM 包可用来生成8位的随机正负整数

SET SERVEROUTPUT ON

 DECLARE
   l_num   NUMBER;
   counter NUMBER;
BEGIN
   counter:=1;
   WHILE counter <= 10
   LOOP
     l_num := DBMS_RANDOM.RANDOM;
     DBMS_OUTPUT.PUT_LINE(l_num);
     counter:=counter+1;
   END LOOP;
END;

UTL_FILE 包用于读写操作系统文本文件，操作文件的一般过程是打开、读或写、关闭

CREATE DIRECTORY TEST_DIR AS ‘C:\DEVELOP‘;

UTL_FILE 包指定文件路径依赖于 DIRECTORY 对象

GRANT READ, WRITE ON DIRECTORY TEST_DIR TO SCOTT;

SET SERVEROUTPUT ON

DECLARE
  input_file   UTL_FILE.FILE_TYPE;
  input_buffer VARCHAR2(4000);
BEGIN
  input_file := UTL_FILE.FOPEN(‘TEST_DIR‘, ‘employees.xml‘, ‘r‘);
  LOOP
    UTL_FILE.GET_LINE(input_file,input_buffer);
    DBMS_OUTPUT.PUT_LINE(input_buffer);
  END LOOP;
  UTL_FILE.FCLOSE(input_file);
EXCEPTION
  WHEN NO_DATA_FOUND THEN
    DBMS_OUTPUT.PUT_LINE(‘------------------‘);
END;