在Oracle中，包分为包头（PACKAGE）和包体（PACKAGE BODY），存储过程的实现代码在包体中。以下是几种查找方法-编程实验室

在Oracle中，包分为包头（PACKAGE）和包体（PACKAGE BODY），存储过程的实现代码在包体中。以下是几种查找方法：

方法1：查找包中包含关键字的存储过程

-- 查找包体（PACKAGE BODY）中包含关键字的存储过程定义 SELECT DISTINCT s.owner, s.name AS 包名, 'PACKAGE BODY' AS 对象类型 FROM all_source s WHERE UPPER(s.text) LIKE UPPER('%关键字%') AND s.type = 'PACKAGE BODY' ORDER BY s.owner, s.name;

方法2：同时查找包头和包体

-- 同时查找包头和包体 SELECT DISTINCT s.owner, s.name AS 对象名称, CASE s.type WHEN 'PACKAGE' THEN '包头' WHEN 'PACKAGE BODY' THEN '包体' END AS 对象类型 FROM all_source s WHERE UPPER(s.text) LIKE UPPER('%关键字%') AND s.type IN ('PACKAGE', 'PACKAGE BODY') ORDER BY s.owner, s.type DESC, s.name;

方法3：查找包中特定的存储过程定义

-- 查找包含特定存储过程定义的行 SELECT s.owner, s.name AS 包名, s.line, s.text AS 代码行 FROM all_source s WHERE (UPPER(s.text) LIKE UPPER('%PROCEDURE%') AND UPPER(s.text) LIKE UPPER('%关键字%')) AND s.type = 'PACKAGE BODY' ORDER BY s.owner, s.name, s.line;

方法4：结合查询包中的存储过程和函数

-- 查找包中的存储过程和函数 SELECT s.owner, s.name AS 包名, s.line, TRIM(s.text) AS 代码行 FROM all_source s WHERE s.type = 'PACKAGE BODY' AND ( -- 查找存储过程定义 (REGEXP_LIKE(UPPER(TRIM(s.text)), '^PROCEDURE\s+', 'c') AND UPPER(s.text) LIKE UPPER('%关键字%')) OR -- 查找函数定义 (REGEXP_LIKE(UPPER(TRIM(s.text)), '^FUNCTION\s+', 'c') AND UPPER(s.text) LIKE UPPER('%关键字%')) ) ORDER BY s.owner, s.name, s.line;

方法5：提取包中特定的存储过程名称

-- 提取包中包含关键字的存储过程名称 SELECT DISTINCT p.owner, p.object_name AS 包名, p.procedure_name AS 存储过程名 FROM all_procedures p WHERE p.object_type = 'PACKAGE' AND p.procedure_name IS NOT NULL AND EXISTS ( SELECT 1 FROM all_source s WHERE s.owner = p.owner AND s.name = p.object_name AND s.type = 'PACKAGE BODY' AND UPPER(s.text) LIKE UPPER('%关键字%') AND UPPER(s.text) LIKE UPPER('%' || p.procedure_name || '%') ) ORDER BY p.owner, p.object_name, p.procedure_name;

方法6：综合查找（包括独立存储过程和包中存储过程）

-- 综合查找：独立存储过程 + 包中的存储过程 WITH search_results AS ( -- 查找独立存储过程 SELECT DISTINCT s.owner, s.name AS 对象名, 'STANDALONE PROCEDURE' AS 对象类型, NULL AS 包名 FROM all_source s WHERE UPPER(s.text) LIKE UPPER('%关键字%') AND s.type = 'PROCEDURE' UNION ALL -- 查找包 SELECT DISTINCT s.owner, s.name AS 对象名, 'PACKAGE BODY' AS 对象类型, s.name AS 包名 FROM all_source s WHERE UPPER(s.text) LIKE UPPER('%关键字%') AND s.type = 'PACKAGE BODY' ) SELECT * FROM search_results ORDER BY owner, 对象类型, 对象名;

方法7：查找包含关键字的特定存储过程调用

-- 查找在代码中调用包含关键字的存储过程 SELECT s.owner, s.name AS 对象名, s.type AS 对象类型, s.line, s.text AS 代码行 FROM all_source s WHERE (UPPER(s.text) LIKE UPPER('%关键字%') AND REGEXP_LIKE(UPPER(s.text), '^\s*(PROCEDURE|FUNCTION)\s+\w+', 'i')) OR (UPPER(s.text) LIKE UPPER('%关键字%') AND REGEXP_LIKE(s.text, '\.\s*\w+\s*\(', 'i')) ORDER BY s.owner, s.name, s.line;

实用示例

-- 示例1：查找包含"employee"的包 SELECT DISTINCT s.owner, s.name AS 包名 FROM all_source s WHERE UPPER(s.text) LIKE UPPER('%employee%') AND s.type = 'PACKAGE BODY' ORDER BY s.owner, s.name; -- 示例2：查找包中名为"calculate"的存储过程 SELECT s.owner, s.name AS 包名, s.line, s.text AS 代码行 FROM all_source s WHERE s.type = 'PACKAGE BODY' AND UPPER(s.text) LIKE UPPER('%PROCEDURE%CALCULATE%') ORDER BY s.owner, s.name, s.line;