捷凌网安Oracle频道
中国IT教育
首页 入门基础 安装配置 体系架构 PLSQL 备份恢复 性能调优 开发技术 资讯动态 考试认证 讨论
 您现在的位置: 捷凌网安 >> Oracle >> PLSQL >> 正文
菜鸟学oracle - 用PL/SQL画直方图

作者:佚名 责任编辑:左决 点击数: 更新时间:2008-3-27 0:36:17

  现在用的库里有一个MV是统计按小时的访问量的,数据如下代码:

SQL> select * from mv_time_stat;



      TIME        CNT

---------- ----------

         0        187

         1         51

         2         34

         3         19

         4         19

         5         20

         6         50

         7        107

         8        682

         9       1342

        10       1854

        11       1292

        12       1416

        13       1180

        14       1217

        15       1573

        16       1785

        17       1469

        18       1892

        19       1907

        20       1602

        21       1540

        22       1013

        23        441



24 rows selected.



   某年月日,突发奇想,打算在sqlplus下面按上面的数据画个直方图出来,首先写了个竖列的(因为好写):

代码:

SQL> COL Time FORMAT A7
SQL> SELECT LPAD(DECODE(TIME,TO_CHAR(SYSDATE,'HH24'),'NOW: '||
TO_CHAR(TIME),TO_CHAR(TIME)),7,' ') AS "Time",
  2  SUBSTR('|'||LPAD('> '||CNT,CEIL(CNT/A.TOTAL*300)+
LENGTH(TO_CHAR(CNT))+1,'-'),1,35) AS "    Count per hour"
  3  FROM MV_TIME_STAT,(SELECT SUM(CNT) AS TOTAL FROM MV_TIME_STAT) A;
COL Time CLEAR

Time        Count per hour
------- -----------------------------------------------------------------
      0 |--> 187
      1 |> 51
      2 |> 34
      3 |> 19
      4 |> 19
      5 |> 20
      6 |> 50
      7 |-> 107
NOW: 8 |---------> 682
      9 |-----------------> 1342
     10 |------------------------> 1854
     11 |-----------------> 1292
     12 |------------------> 1416
     13 |---------------> 1180
     14 |----------------> 1217
     15 |--------------------> 1573
     16 |-----------------------> 1785
     17 |-------------------> 1469
     18 |-------------------------> 1892
     19 |-------------------------> 1907
     20 |---------------------> 1602
     21 |--------------------> 1540
     22 |-------------> 1013
     23 |-----> 441

24 rows selected.



    然后又想,怎么样把它横过来,到网上查资料,又突击学习了下分析函数,写了一个过程是这个样子的:

代码:

CREATE OR REPLACE PROCEDURE HISTOGRAPH(HEIGHT NUMBER DEFAULT 15) AS
  MAX_ONE NUMBER;
  STR_LINE VARCHAR(120);
  STR_TEMP VARCHAR(120);
  I NUMBER;
BEGIN
  DBMS_OUTPUT.PUT_LINE(LPAD('^',14,' '));
  SELECT MAX(CNT) INTO MAX_ONE FROM MV_TIME_STAT;
  FOR I IN 1 .. HEIGHT+1 LOOP
    STR_LINE:=LPAD(TO_CHAR(MAX_ONE-(I-1)*MAX_ONE/HEIGHT,'99999')||'-'||
TO_CHAR(MAX_ONE-(I-2)*MAX_ONE/HEIGHT,'99999')||'|',14,'0');
    SELECT MAX(SYS_CONNECT_BY_PATH(
      DECODE(SIGN(CNT-MAX_ONE+(I-1)*MAX_ONE/HEIGHT),-1,
        DECODE(SIGN(CNT-MAX_ONE+(I-2)*MAX_ONE/HEIGHT),-1,'^','*'),
      '|'),
    '  '))  INTO STR_TEMP
    FROM MV_TIME_STAT
    START WITH TIME=0
    CONNECT BY PRIOR TIME=TIME-1;
    STR_LINE:=STR_LINE||STR_TEMP;
    DBMS_OUTPUT.PUT_LINE(REPLACE (STR_LINE,'^',' '));
  END LOOP;
  SELECT MAX(SYS_CONNECT_BY_PATH(TO_CHAR(TIME,'00'),'^'))  INTO STR_TEMP
  FROM MV_TIME_STAT
  START WITH TIME=0
  CONNECT BY PRIOR TIME=TIME-1;
  DBMS_OUTPUT.PUT_LINE(LPAD('0',14,' ')||LPAD('>',LENGTH(REPLACE(STR_TEMP,' '))+3,'-'));
  DBMS_OUTPUT.PUT_LINE(REPLACE(LPAD('^',14,' ')||REPLACE(STR_TEMP,' '),'^',' '));
END;
/    

Procedure created.

SQL> exec histograph;
             ^
  1907-  2034|                                                           |
  1780-  1907|                                |                 |     |  |
  1653-  1780|                                |                 |     |  |
  1526-  1653|                                |              |  |     |  |  |  |
  1398-  1526|                                |     |        |  |  |  |  |  |  |
  1271-  1398|                             |  |  |  |        |  |  |  |  |  |  |
  1144-  1271|                             |  |  |  |  |  |  |  |  |  |  |  |  |
  1017-  1144|                             |  |  |  |  |  |  |  |  |  |  |  |  |
   890-  1017|                             |  |  |  |  |  |  |  |  |  |  |  |  |  |
   763-   890|                             |  |  |  |  |  |  |  |  |  |  |  |  |  |
   636-   763|                          |  |  |  |  |  |  |  |  |  |  |  |  |  |  |
   509-   636|                          |  |  |  |  |  |  |  |  |  |  |  |  |  |  |
   381-   509|                          |  |  |  |  |  |  |  |  |  |  |  |  |  |  |  |
   254-   381|                          |  |  |  |  |  |  |  |  |  |  |  |  |  |  |  |
   127-   254|  |                       |  |  |  |  |  |  |  |  |  |  |  |  |  |  |  |
     0-   127|  |  |  |  |  |  |  |  |  |  |  |  |  |  |  |  |  |  |  |  |  |  |  |  |
             0-------------------------------------------------------------------------->
               00 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23

PL/SQL procedure successfully completed.
  • 上一篇文章:

  • 下一篇文章:
  •  
     最进更新
    普通文章如何获得Oracle DBA工作?05-11
    普通文章分别删除数据表记录的方法05-11
    普通文章实例讲解删除表空间时存在的05-11
    普通文章Oracle Wait Event:Data fil05-11
    普通文章重复利用这个外部表的表结构05-11
    普通文章Oracle 9i数据库的用户创建以05-11
    普通文章Oracle数据库应用程序中RAID05-11
    普通文章如何更改监听器设置05-11
    普通文章Oracle中SQL语句执行效率的查05-11
    普通文章掌握数据库链路的建立和使用05-11
     
     推荐文章
    推荐文章研究人员发现攻击Oracle数据04-30
    推荐文章研究人员找到新方法黑掉Orac04-30
    推荐文章数据库产业商业模式大猜想04-30
    推荐文章一种并发控制的精典案例04-30
    推荐文章讲解Oracle在Solaris下的性能04-30
    推荐文章Oracle中为什么会产生回滚与04-30
    推荐文章实例讲解sql_trace和access 04-30
    推荐文章Oracle数据库9i和10g环境下使04-30
    推荐文章Oracle数据库后台进程的具体04-30
    推荐文章Oracle数据库中Undo数据段的04-30
     
     热点文章
    普通文章PB内置Oracle数据库接口的使03-27
    普通文章用最简单的方法记录Oracle语03-27
    推荐文章教你快速掌握Oracle数据库的03-27
    推荐文章详细讲解"Oracle"数据库的“03-27
    普通文章深入讲解Oracle数据库的多栏03-27
    推荐文章教你快速掌握一个简单的Orac03-27
    推荐文章初学者应该如何理解Oracle的03-27
    普通文章怎样将"Oracle"的外部表汉字03-27
    推荐文章解决不同字符集数据库间的数03-27
    普通文章Oracle的window服务启动时并03-27

    | 设为首页 | 加入收藏 | 联系站长 | 广告服务 | 友情链接 | 版权申明 | 网站地图 |

    在线交流 捷凌网安主群:51649627
    Copyright 2007-2008 © 捷凌网安. All rights reserved.
    备案序号:蜀ICP备08001812号