技术标签: Oracle Certification Oracle 11g OCP每日一题专栏
正确答案:AD
这张图描述了包规范和包主体。表明包规规范提当着包主体的接口。包规范和包主体中都可以声明变量、类型和组件。在包规规范中声明的变量、类型和组件会被发布,而仅在包主体内声明的变量、类型和组件则是局部组件。在组件实现内定义的命名块是私有模块,或者是局部函数和过程的黑盒内的部分。
当在包规范中声明了包函数和过程时,外部PL/SQL块可调用它们。仅在包体主体中声明的组件通过它们的包声明调用发布组件。
当在包规范中定义用户自定义数据类型时,它们就对其它所有PL/SQL块公有可用。
当在包体中定义用户自定义数据类型时,它们就对在包体中实现的PL/SQL块私有可用。
无论使用的是包规范还是包主体,变量和类型的实现方法式都是相同的。
这张图是说明黑盒的重载的工作方。在第一个签名中,第二个参数是CLOB,第三个参数是DATE,而它们在第二个签名中的位置调了个儿。示例ADDING函数的图将VARCHAR2参数显示成两个圆漏斗,将NUMBER参数显示成两个方漏斗。
包主体:
包主体包含在包规范中声明实现.一切都必须完全相符,包括形参的默认值。在Oracle9i之前可以在规范中声明形参,但是不完全强制在包主体中实现它们。所以从Oracle8i迁移到更新的版本之前需要检查一下(如果还没有检查的话)代码某些部分。
包主体原型与包规范原型非常相似。包主体几乎可以声明包规范设置的一切,除了一件事外:不能在包主体内定义函数的PRAAGMA。任何这样的企图都会引发PLS-00708错误,该项错误表明必须把它们放在包规范中。
只要不同于包规范中所声明的内空,就可以使用包级异常的EXCEPTION_INIT PRAGMA指令。也可以重写在包规范中声明的一个变量。可以通过在包主体中再次声明这个变量来重写。这样,就使包主体不能访问变量的这两个副本。当试图编制译包主体时,在包主体内对声明了两次变量的任何引用都会引发PLS-00371异常。该异常表明,至多只允许声明变量一次。其意图似乎是表明不应当利用这个行为,而包主体的成功编译很可能是一个潜在的BUG。
在包主体中声明的包级变量不同于在包规中声明的包级变量。不能在包之外访问包级变量。只有包规范发布的函数和过程可以访问包级变量。这使得这些变量非常像实例变量,因为它们在对包函数与过程的调用之间保持了状态。至少,从第一次调用直到会话结束或因为留时间过长被推出SGA,它们保持了它们的状态。
举个实际工作中的例子:
创建包规范:
CREATE OR REPLACE PACKAGE EBS_TRADE IS
-- Éú³É´íÎóÐÅÏ¢
PROCEDURE MakeErrorMessage(Head IN EBSHEADOBJECT, ErrorCode IN VARCHAR2,
ResBuffer OUT VARCHAR2);
PROCEDURE MakeCancelMessage(Head IN EBSHEADOBJECT, ErrorCode IN VARCHAR2,
ResBuffer IN VARCHAR2);
PROCEDURE PrintLogInfo(Head IN EBSHEADOBJECT, Info IN VARCHAR2);
-- ¼ÓÃܺ¯Êý
FUNCTION EncryptPassword(iOldPass IN VARCHAR2) RETURN VARCHAR2;
FUNCTION EncryptPassword6(iOldPass IN VARCHAR2) RETURN VARCHAR2;
-- ¼ÓÃÜÊÚȨÂ뺯Êý
FUNCTION EncryptAuth(iAuthCode IN VARCHAR2,
iHdCode IN VARCHAR2) RETURN VARCHAR2;
-- »ñÈ¡6λËæ»úÊý
FUNCTION GetRandNum RETURN NUMBER;
PROCEDURE WriteElapsed(Head IN EBSHEADOBJECT);
END EBS_TRADE;
创建包主体
CREATE OR REPLACE PACKAGE BODY EBS_TRADE IS
-- »ñÈ¡Êý¾Ý¿âÖеĴíÎóÐÅÏ¢
PROCEDURE MakeErrorMessage(Head IN EbsHeadObject, ErrorCode IN VARCHAR2,
ResBuffer OUT VARCHAR2)
AS
PRAGMA AUTONOMOUS_TRANSACTION;
time_end NUMBER;
BEGIN
time_end:=DBMS_UTILITY.GET_TIME;
UPDATE BASE_STREAM_LOG SET STATE = 1,RETCODE=ErrorCode,ELAPSED=(time_end-Head.time_begin) WHERE STREAMID = Head.StreamId;
-- Õâ¸öÊÇÄÚ²¿ÊÂÎñ£¬½øÐÐÌá½»
COMMIT;
SELECT LPAD(Head.serno,13,'0') || RETCODE || RETMESSAGE INTO ResBuffer FROM BASE_RET_INFO
WHERE RETCODE = ErrorCode;
EXCEPTION
WHEN NO_DATA_FOUND THEN
ResBuffer := LPAD(Head.serno,13,'0') ||ErrorCode || 'δ֪´íÎó´úÂë';
END MakeErrorMessage;
PROCEDURE MakeCancelMessage(Head IN EbsHeadObject, ErrorCode IN VARCHAR2,
ResBuffer IN VARCHAR2)
AS
PRAGMA AUTONOMOUS_TRANSACTION;
time_end NUMBER;
BEGIN
time_end:=DBMS_UTILITY.GET_TIME;
UPDATE BASE_STREAM_LOG SET STATE = 1,RETCODE=ErrorCode,ELAPSED=(time_end-Head.time_begin) WHERE STREAMID = Head.StreamId;
-- Õâ¸öÊÇÄÚ²¿ÊÂÎñ£¬½øÐÐÌá½»
COMMIT;
--SELECT LPAD(Head.serno,13,'0') || RETCODE || RETMESSAGE INTO ResBuffer FROM BASE_RET_INFO
-- WHERE RETCODE = ErrorCode;
EXCEPTION
WHEN NO_DATA_FOUND THEN
--ResBuffer := LPAD(Head.serno,13,'0') ||ErrorCode || 'δ֪´íÎó´úÂë';
ROLLBACK;
RETURN;
END MakeCancelMessage;
PROCEDURE WriteElapsed(Head IN EbsHeadObject)
AS
PRAGMA AUTONOMOUS_TRANSACTION;
time_end NUMBER;
BEGIN
time_end:=DBMS_UTILITY.GET_TIME;
UPDATE BASE_STREAM_LOG SET ELAPSED=(time_end-Head.time_begin)||'ºÁÃë' WHERE STREAMID = Head.StreamId;
-- Õâ¸öÊÇÄÚ²¿ÊÂÎñ£¬½øÐÐÌá½»
COMMIT;
END WriteElapsed;
PROCEDURE PrintLogInfo(Head IN EBSHEADOBJECT, Info IN VARCHAR2)
AS
FileHandle UTL_FILE.file_type;
HeadInfo VARCHAR(2000);
BEGIN
FileHandle := UTL_FILE.fopen('FILESERVERDIR','PrintLogInfo.dbg', 'a', 2000);
HeadInfo := '[½»Ò×' || Head.TradeType || Head.TradeCode
|| '][ȇȡ' || sys_context('USERENV', 'SESSIONID')
|| '][ʱ¼ä'|| to_char(SYSDATE, 'YYYY-MM-DD HH24:MI:SS') || ']';
UTL_FILE.put_line(FileHandle, HeadInfo);
UTL_FILE.put_line(FileHandle, ' ' || Info);
UTL_FILE.fflush(FileHandle);
UTL_FILE.fclose(FileHandle);
END PrintLogInfo;
FUNCTION EncryptPassword6(iOldPass IN VARCHAR2) RETURN VARCHAR2 IS
Result VARCHAR2(6);
Temp VARCHAR2(6);
c CHAR(1);
c1 CHAR(1);
c2 CHAR(1);
c3 CHAR(1);
c4 CHAR(1);
c5 CHAR(1);
c6 CHAR(1);
BEGIN
IF LENGTHB(iOldPass) < 6 THEN
Temp := LPAD(iOldPass, 6, '0');
ELSIF LENGTHB(iOldPass) > 6 THEN
Temp := SUBSTRB(iOldPass, 1, 6);
ELSE
Temp := iOldPass;
END IF;
c := SUBSTRB(Temp, 5, 1);
IF c = '0' THEN
c1 := '0';
ELSE
c1 :=CHR(106 - ASCII(c));
END IF;
c := SUBSTRB(Temp, 4, 1);
IF c = '0' THEN
c2 := '0';
ELSE
c2 :=CHR(106 - ASCII(c));
END IF;
c := SUBSTRB(Temp, 1, 1);
IF c = '0' THEN
c3 := '0';
ELSE
c3 :=CHR(106 - ASCII(c));
END IF;
c := SUBSTRB(Temp, 6, 1);
IF c = '0' THEN
c4 := '0';
ELSE
c4 :=CHR(106 - ASCII(c));
END IF;
c := SUBSTRB(Temp, 3, 1);
IF c = '0' THEN
c5 := '0';
ELSE
c5 :=CHR(106 - ASCII(c));
END IF;
c := SUBSTRB(Temp, 2, 1);
IF c = '0' THEN
c6 := '0';
ELSE
c6 := CHR(106 - ASCII(c));
END IF;
Result := c1 || c2 || c3 || c4 || c5 || c6;
RETURN Result;
END EncryptPassword6;
-- ¼ÓÃÜÃÜÂë
FUNCTION EncryptPassword(iOldPass IN VARCHAR2) RETURN VARCHAR2 IS
Result VARCHAR2(8);
Temp VARCHAR2(8);
c CHAR(1);
c1 CHAR(1);
c2 CHAR(1);
c3 CHAR(1);
c4 CHAR(1);
c5 CHAR(1);
c6 CHAR(1);
C7 CHAR(1);
C8 CHAR(1);
BEGIN
IF LENGTHB(iOldPass) < 8 THEN
Temp := LPAD(iOldPass, 8, '0');
ELSIF LENGTHB(iOldPass) > 8 THEN
Temp := SUBSTRB(iOldPass, 1, 8);
ELSE
Temp := iOldPass;
END IF;
c := SUBSTRB(Temp, 5, 1);
IF c = '0' THEN
c1 := '0';
ELSE
c1 :=CHR(106 - ASCII(c));
END IF;
c := SUBSTRB(Temp, 4, 1);
IF c = '0' THEN
c2 := '0';
ELSE
c2 :=CHR(106 - ASCII(c));
END IF;
c := SUBSTRB(Temp, 1, 1);
IF c = '0' THEN
c3 := '0';
ELSE
c3 :=CHR(106 - ASCII(c));
END IF;
c := SUBSTRB(Temp, 6, 1);
IF c = '0' THEN
c4 := '0';
ELSE
c4 :=CHR(106 - ASCII(c));
END IF;
c := SUBSTRB(Temp, 3, 1);
IF c = '0' THEN
c5 := '0';
ELSE
c5 :=CHR(106 - ASCII(c));
END IF;
c := SUBSTRB(Temp, 2, 1);
IF c = '0' THEN
c6 := '0';
ELSE
c6 := CHR(106 - ASCII(c));
END IF;
c := SUBSTRB(Temp, 7, 1);
IF c = '0' THEN
c7 := '0';
ELSE
c7 := CHR(106 - ASCII(c));
END IF;
c := SUBSTRB(Temp, 8, 1);
IF c = '0' THEN
c8 := '0';
ELSE
c8 := CHR(106 - ASCII(c));
END IF;
Result := c1 || c2 || c3 || c4 || c5 || c6 || c7 || c8 ;
RETURN Result;
END EncryptPassword;
/*Éú³ÉËæ»úÊý*/
FUNCTION GetRandNum RETURN NUMBER
IS
ResultNumber NUMBER(6);
BEGIN
ResultNumber := CEIL(DBMS_RANDOM.VALUE() * 1000000);
IF ResultNumber < 100000 THEN
ResultNumber := ResultNumber + 100000;
END IF;
RETURN ResultNumber;
END GetRandNum;
-- ¼ÓÃÜÊÚȨÂë
FUNCTION EncryptAuth(
iAuthCode IN VARCHAR2, iHdCode IN VARCHAR2) RETURN VARCHAR2
AS
AuthCode2 VARCHAR2(6);
SoundChar VARCHAR2(32);
TransChar VARCHAR2(32);
BEGIN
AuthCode2 := EBS_TRADE.EncryptPassword6(iAuthCode);
SoundChar := SOUNDEX(iHdcode);
TransChar := TRANSLATE(iHdcode, '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ',
'0123456789');
RETURN SoundChar || substr(iHdCode, 1, 3) || AuthCode2|| TransChar;
END EncryptAuth;
END;
文章浏览阅读3.2w次。nodejs字符串操作简介需要引入querystring对象,querystring对象的方法有stringifyquerystring.stringify(“对象”,“分隔符”,“分配符”),将一个json对象,转为字符串,通过指定的分隔符,以及分配符 具体代码:var querystring = require('querystring');var result = querystring.s_nodejs 字符串操作模块
文章浏览阅读855次。机器学习基本概念_anomaly compression
文章浏览阅读9.4k次,点赞29次,收藏109次。在CTF中可以说是经常碰到md5加密了,一般都是进行强比较抑或是弱比较,考法非常多,但是万变不离其中。只要我们掌握了原理,一切问题便迎刃而解了。文章首发于我的博客,格式可能比较清晰,有兴趣了解CTF中MD5碰撞的伙伴可以移步查看。_md5碰撞
文章浏览阅读854次,点赞5次,收藏12次。找到与这个系统邻接的边(0,1),(5,4),比较两者的权值,容易发现权值最小的为25,因此加入边(5,4),同时加入结点4和边(5,4)。4.将0,5,4,3以及相关的边看成一个整体,与其邻接的边有(0,1)28,(4,6)24,(3,6)18,(3,2)12,四个边中权值最小的边是(3,2),所以加入结点2以及边(3,2)。5.与4中所构成的整体邻接的边有(0,1)28,(4,6)24,(3,6)18,(2,1)16,四者中权值最小的边为(2,1),所以加入结点1以及边(2,1)。_c语言普里姆算法
文章浏览阅读3.1k次,点赞2次,收藏15次。长时间在服务器上运行深度学习代码,使用nohub 命令行 & 可以让代码不间断在后台运行_nohub
文章浏览阅读4k次,点赞18次,收藏69次。强化学习这一章会讲基于策略的强化学习Value-Based Reinforcement Learning-DQN强化学习前言一、policy函数二、DQN2.1 游戏中agent的目标是什么?2.2 agent如何做决策?2.3 如何理解Q* 函数呢?2.5 DQN打游戏?三、如何训练DQN?3.1 TD算法3.2 TD算法训练DQN四、训练步骤六、总结前言说明一下:这是我的一个学习笔记,课程链接如下:最易懂的强化学习课程公众号:AI那些事一、policy函数我们回顾一下Acti_policy函数
文章浏览阅读3.3w次,点赞9次,收藏25次。刚开始学习docker,发现下载镜像非常的慢。如果不经过,docker的镜像下载都来源于国外,因此需要配置国内的镜像源。Docker中国区官方镜像。_docker国内镜像源
文章浏览阅读1.9w次,点赞40次,收藏209次。一.首先在场景中新建UI中的Raw Image可以按住Alt再点击下图红色箭头所示将Raw Image铺满游戏全屏(也可以自己调整大小)二.给Raw Image添加Video Player组件三.在Assets或者自己想要的文件夹中创建Render Texture四.将准备好的视频(这里用到的视频格式是mp4)拖入项目中并做如下修改这里我把新建的Render Texture命名为2,拖入的视频也命名为2(随便命的,不要在意)这里我们看到这个Render Te..._unity 播放视频
文章浏览阅读9.7k次,点赞2次,收藏9次。使用BOOTICE 恢复系统启动项我在安装deepin 系统的时候,经常遇到重启进不去系统,每次重启都会进入windows 系统,这让我感到特别头疼,试了好多次都不成功,有些情况是,成功后再次重启又回到了windows系统。后来终于在PE中利用一款叫做BOOT ICE的工具成功解决。BOOTICE— 引导扇区维护工具简介BOOTICE 是一个启动相关的维护的小工具,主要用于安装、修复、备份和恢复磁盘_bootice保存后没用
文章浏览阅读9.5w次,点赞54次,收藏202次。之前做过一些文本挖掘的项目,比如网页分类、微博情感分析、用户评论挖掘,也曾经将libsvm进行包装,写了一个文本分类的开软软件Tmsvm。所以这里将之前做过一些关于文本分类的东西整理总结一下。1 基础知识1. 1 样本整理文本分类属于有监督的学习,所以需要整理样本。根据业务需求,确定样本标签与数目,其中样本标签多为整数。在svm中其中如果为二分类,样本标签一般会设定为-1和_svm分类
文章浏览阅读141次。题目python代码方法一:利用新列表,创建新的链表# Definition for singly-linked list.# class ListNode(object):# def __init__(self, val=0, next=None):# self.val = val# self.next = nextclass Solution(object): def reverseList(self, head): ""_力扣链表反转
文章浏览阅读3.6k次,点赞3次,收藏6次。参考:OpenGL教程:深度测试深度冲突一个很常见的视觉错误会在两个平面或者三角形非常紧密地平行排列在一起时会发生,深度缓冲没有足够的精度来决定两个形状哪个在前面。结果就是这两个形状不断地在切换前后顺序,这会导致很奇怪的花纹。这个现象叫做深度冲突(Z-fighting),因为它看起来像是这两个形状在争夺(Fight)谁该处于顶端。防止深度冲突第一个也是最重要的技巧是永远不要把多个物体摆得太靠近,以至于它们的一些三角形会重叠。通过在两个物体之间设置一个用户无法注意到的偏移值,你可以完全避免这两个物体之_深度冲突