在oracle提供的standard package中， 并没有产生随机数的function或procedure
在oracle提供的standard package中，并没有产生随机数的function或procedure.下面的
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;
v_result := trunc(v_result);
else
/* just multiply to expand the answer */
v_result := v_rand * (v_range_upper - v_range_lower ) + v_range_lower;
end if;
return v_result;
end;
/* and now the initialisation code */
begin
open c_seed;
fetch c_seed
into v_lastval;
close c_seed;
end;
Java Asp PHP .Net XML C/C++ CGI VB Jsp J2ee J2se J2me EJB Servlet Tomcat Resin Struts Weblogic Eclipse ANT GUI JMS Web servise IDEA Webphere Hibernate Spring Jboss Applet Swing Socket Javamail Perl Ajax P2P 安全 模式 框架 测试 开源 游戏
Windows XP Windows 2000 Windows 2003 Windows Me Windows 9.x Linux UNIX 注册表 操作系统 服务器 应用服务器
