在運維的過程中，有時候需要定時將SQL查詢的數據結果集以html表格形式發送郵件，因此需要將SQL查詢得到的結果集拼接成html代碼。對於這種情形通常有二種方式來完成。一是直接使用cron job來定時輪詢並借助os級別的郵件程序來完成。其查詢結果集可以直接在SQL*Plus下通過設置html標簽自動實現html表格形式。一種方式是在Oracle中使用scheduler job來定時輪詢。這種方式需要我們手動拼接html代碼。本文即是對第二種情形展開描述。
關於PL/SQL下如何發送郵件可參考: PL/SQL 下郵件發送程序
1、代碼描述
? 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 --下面的代碼段主要主要是用於發送數據庫A部分數據同步到數據庫B是出現的錯誤信息 --表syn_data_err_log_tbl主要是記錄錯誤日志，也就是說只要表中出現了新的記錄或者舊記錄且mailed列標志為N，即表示需要發送郵件 --下面逐一描述代碼段信息，該代碼段可以封裝到package. PROCEDURE email_on_syn_data_err_log (err_num OUT NUMBER, err_msg OUT VARCHAR2) AS v_msg_txt VARCHAR2 (32767); v_sub VARCHAR2 (100); v_html_header VARCHAR (4000); v_html_content VARCHAR (32767); v_count NUMBER; v_log_seq NUMBER (12); v_loop_count NUMBER := 0; CURSOR cur_errlog --使用cursor來生成表格標題部分 IS SELECT '<tr > <td style="vertical-align:top;padding: 5px;"> ' || TO_CHAR (sd.log_seq) || '</td> <td style="vertical-align:top;padding: 5px;"> ' || sd.process || '</td>' || '<td style="vertical-align:top;padding: 5px;"> ' || sd.rec_id || '</td> ' || '<td style="padding: 5px;"> ' || REPLACE (REPLACE (sd.err_msg, '<', ';'), '>', ';') || '</td>' || '<td style="vertical-align:top;padding: 5px;">' || TO_CHAR (sd.log_time, 'yyyy-mm-dd hh24:mi:ss') || '</td> </tr>', sd.log_seq FROM syn_data_err_log_tbl sd WHERE sd.mailed = 'N' ORDER BY sd.log_seq; BEGIN err_num := common_pkg.c_suc_general; SELECT COUNT (*) INTO v_count -->統計當次需要發送的總記錄數 FROM syn_data_err_log_tbl sd WHERE sd.mailed = 'N'; IF v_count > 0 --> 表示有記錄需要發送郵件 THEN SELECT 'Job process failed on ' || instance_name || '/' || host_name INTO v_sub -->生成郵件的subject FROM v$instance; v_html_header := -->定義表格的header部分信息 '<html><header><style> #log-table { margin: 0; padding: 0; width: 90%; border-collapse: collapse; font: 12px "Lucida Grande", Helvetica, Sans-Serif; border:1px solid #CCC; } #log-table td { padding: 5px; border:1px solid #CCC; } #log-table th { padding: 5px; background: black; color: white; text-align: left; } #log-table tr:nth-child(even) td { background: #eee; } </style></header><body> <table id="log-table" style="width: 100%;border-collapse: collapse;font-size:12px;">'; v_html_header := -->下面是拼接每一個字段的信息 v_html_header || '<tr style="background: black;"> <th style="color: white;width:100px;padding: 5px;">Log sequence</th> <th style="color: white;width:100px;padding: 5px;">Process</th> <th style="color: white;width:100px;padding: 5px;">Rec ID</th> <th style="color: white;width:100px;padding: 5px;">Error message</th> <th style="color: white;padding: 5px;">Log time</th></tr>'; OPEN cur_errlog; -->打開游標 LOOP FETCH cur_errlog INTO v_msg_txt, v_log_seq; EXIT WHEN cur_errlog%NOTFOUND; v_loop_count := v_loop_count + 1; v_html_content := v_html_content || v_msg_txt; --->注意這裡，不斷地把從原表中的err_msg拿出來進行拼接通過v_msg_txt --Maximun record = 50 -- IF v_loop_count > 50 --->這裡的判斷就是用於控制表格總共顯示多少行 THEN --->主要是用於如果由於需要拼接的行太多導致超過字符長度32767，因此從50行處截斷 v_html_content := v_html_header || v_html_content || '</table></body></html>'; --->這裡添加html尾部 SENDMAIL_PKG.sendmail ( bo_system_pkg.get_sys_para_value ('EMAIL_SENDER_HC_EMAIL'), --->調用函數獲得郵件的接收者，此處可以直接寫接收者 v_sub, v_html_content, err_num, err_msg); v_msg_txt := ''; --->注，此處對三個本地變量置空 v_html_content := ''; v_loop_count := 0; UPDATE syn_data_err_log_tbl sd --->根據log_seq字段對已經發送過的記錄標記為Y SET mailed = 'Y' WHERE sd.mailed = 'N' AND log_seq <= v_log_seq; -- COMMIT; ELSIF v_count = cur_errlog%ROWCOUNT --->當v_count與游標取得記錄數相等時，拼接表格尾部html代碼，發送郵件以及更新mailed列 THEN v_html_content := v_html_header || v_html_content || '</table></body></html>'; SENDMAIL_PKG.sendmail ( bo_system_pkg.get_sys_para_value ('EMAIL_SENDER_HC_EMAIL'), v_sub, v_html_content, err_num, err_msg); v_msg_txt := ''; v_html_content := ''; UPDATE syn_data_err_log_tbl sd SET mailed = 'Y' WHERE sd.mailed = 'N' AND log_seq <= v_log_seq; END IF; END LOOP; COMMIT; CLOSE cur_errlog; END IF; EXCEPTION WHEN NO_DATA_FOUND THEN err_num := common_pkg.c_fail_data_not_found; WHEN OTHERS THEN err_num := common_pkg.c_fail_user_define; err_msg := 'Fail in process SENDMAIL_PKG.email_on_syn_data_err_log. '; END;2、調用示例及郵件樣式
? 1 2 3 4 5 6 7 8 9 10 11 12 13 14 gx_admin@SYBO2SZ> DECLARE 2 ERR_NUM NUMBER; 3 ERR_MSG VARCHAR2(32767); 4 5 BEGIN 6 ERR_NUM := NULL; 7 ERR_MSG := NULL; 8 9 GX_ADMIN.SENDMAIL_PKG.EMAIL_ON_SYN_DATA_ERR_LOG ( ERR_NUM, ERR_MSG ); 10 COMMIT; 11 END; 12 / PL/SQL procedure successfully completed.更多參考
使用 DBMS_PROFILER 定位 PL/SQL 瓶頸代碼
使用PL/SQL Developer剖析PL/SQL代碼
對比 PL/SQL profiler 剖析結果
PL/SQL Profiler 剖析報告生成html
DML Error Logging 特性
PL/SQL --> 游標
PL/SQL --> 隱式游標(SQL%FOUND)
批量SQL之 FORALL 語句
批量SQL之 BULK COLLECT 子句
PL/SQL 集合的初始化與賦值
PL/SQL 聯合數組與嵌套表
SQL tuning 步驟
高效SQL語句必殺技
父游標、子游標及共享游標
綁定變量及其優缺點
dbms_xplan之display_cursor函數的使用
dbms_xplan之display函數的使用
執行計劃中各字段各模塊描述
使用 EXPLAIN PLAN 獲取SQL語句執行計劃
