在Oracle中用PL/SQL产生随机数
在Oracle提供的standard Package中，并没有产生随机数的function或procedure.下面的例子是使用PL/SQL些的一个随机数产生器。
CREATE OR REPLACE package pk_rand
is
/*****************************************************************
* 这个package返回一个0-1之间的随机数，可以通过设置set_rang（low，upper）
*来重新指定返回那个范围的随机数。
*大家都知道，产生随机数需要‘种子’，可以通过set_seed这个procedure来设*置初始值******************************************************************/
procedure set_range（p_lower in number
，p_upper in number
，p_integer in varchar2 ：= ’Y’）;
procedure set_seed（p_seed in number）;
procedure rand（p_result out number） ;
function f_rand
return number;
pragma restrict_references（f_rand，WNDS）;
end;
/
CREATE OR REPLACE package body pk_rand
is
v_range_lower number ：= 0;
v_range_upper number ：= 1;
v_lastval number;
v_rand number;
v_result number;
v_integer boolean ：= FALSE;
cursor c_seed is
select to_char（sysdate，’SSSSSDDDHHSSSSS’）
from dual;
procedure set_seed（p_seed in number）
is
begin
v_lastval ：= p_seed;
end;
procedure set_range（p_lower in number，p_upper in number
，p_integer in varchar2 ：= ’Y’）
is
begin
v_range_lower ：= p_lower;
v_range_upper ：= p_upper;
if p_integer = ’Y’ then
v_integer ：= TRUE;
else
v_integer ：= FALSE;
end if;
end;
procedure rand（p_result out number）
is
begin
p_result ：= f_rand;
end;
function f_rand
return number is
/* Fixed values used in generation */
a number ：= 25214903917;
c number ：= 11;
m number ：= power（2，48）;
begin
/* Compute next random number */
v_rand ：= （（a * v_lastval + c ） mod m ）;
/* Store it as seed value in next calculation */
v_lastval ：= v_rand;
/* Get output between 0 and 1 */
v_rand ：= v_rand / m;
/* Multiply up to required range */
if v_integer then
/* Increment the range by 1 to allow for truncation */
v_result ：= v_rand * （（v_range_upper +1） - v_range_lower ） +
v_range_lower;
上一篇：返回列表
下一篇：Oracle数据库替代加密算法
免费电话
