本文章会以多种方式使用数据库sql来写福字,请耐心看完
初级版一
方法：先写一个福字的图片，拉大，放到excel中，将excel的列宽调整成和行高一样，然后将笔画所在的点位标记，相当于手动点位图像素，最后用公式拼出sql
SELECT '','','','','','','','','','','','','','','','','','','','','','','','','' FROM DUAL UNION ALL
SELECT '','','','','','','福','福','福','','','','','','','','','','福','福','','','','','' FROM DUAL UNION ALL
SELECT '','','','','','','','福','福','福','','','','','','福','福','福','福','福','福','','','','' FROM DUAL UNION ALL
SELECT '','','','','','','','','福','福','','','','','福','福','福','福','','','','','','','' FROM DUAL UNION ALL
SELECT '','','','','','','','','','','','','','','','','','','','','','','','','' FROM DUAL UNION ALL
SELECT '','','','','','','','','','','','','','','','','','','','','','','','','' FROM DUAL UNION ALL
SELECT '','','','','','','','','','','','','福','','','','福','福','福','福','福','','','','' FROM DUAL UNION ALL
SELECT '','','','','','','','福','福','福','','','福','福','福','福','','','','福','','','','','' FROM DUAL UNION ALL
SELECT '','','','','','福','福','福','','福','','','','福','','','','','','福','','','','','' FROM DUAL UNION ALL
SELECT '','福','福','福','福','','','','福','','','','','','福','','福','福','福','福','','','','','' FROM DUAL UNION ALL
SELECT '','','','','','','','福','福','','','','','','福','福','','','','','','','','','' FROM DUAL UNION ALL
SELECT '','','','','','','','福','','','','','','','','','','','','','','','','','' FROM DUAL UNION ALL
SELECT '','','','','','','福','福','','','','','','','','','','','福','福','福','福','福','','' FROM DUAL UNION ALL
SELECT '','','','','','','福','福','福','福','','福','福','福','福','福','福','福','','','','','福','福','' FROM DUAL UNION ALL
SELECT '','','','','','福','','福','','福','福','','福','','','','福','福','','','','','福','福','' FROM DUAL UNION ALL
SELECT '','','','','福','','','福','','','','','福','','','','福','','','','','','福','','' FROM DUAL UNION ALL
SELECT '','','','福','','','','福','','','','','福','','','','福','福','福','福','','','福','','' FROM DUAL UNION ALL
SELECT '','','','福','','','','福','','','','','福','','福','福','福','','','','','','福','','' FROM DUAL UNION ALL
SELECT '','','福','','','','','福','','','','','福','','','','福','','','','','','福','','' FROM DUAL UNION ALL
SELECT '','福','','','','','','福','','','','','福','','','','福','','','','','','福','','' FROM DUAL UNION ALL
SELECT '','','','','','','','福','','','','','福','','','福','福','福','福','福','','','福','','' FROM DUAL UNION ALL
SELECT '','','','','','','福','福','','','','','福','福','福','','','','','','福','','福','','' FROM DUAL UNION ALL
SELECT '','','','','','','福','福','','','','','','福','','','','','','','福','福','','','' FROM DUAL UNION ALL
SELECT '','','','','','','','福','','','','','','','','','','','','','','福','','','' FROM DUAL UNION ALL
SELECT '','','','','','','','','','','','','','','','','','','','','','','','','' FROM DUAL
初级版二
方法：同样使用方案一准备的数据，用listagg对多行数据进行拼接。注意此处listagg不需要within group是oracle18c新增的特性，如果是oracle18c以下或其他支持listagg的数据库，请将前面修改成listagg(f,chr(10)) within group(order by 1)
select listagg(f,chr(10)) from (
SELECT ' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' ' F FROM DUAL UNION ALL
SELECT ' '||' '||' '||' '||' '||' '||'福'||'福'||'福'||' '||' '||' '||' '||' '||' '||' '||' '||' '||'福'||'福'||' '||' '||' '||' ' FROM DUAL UNION ALL
SELECT ' '||' '||' '||' '||' '||' '||' '||'福'||'福'||'福'||' '||' '||' '||' '||' '||'福'||'福'||'福'||'福'||'福'||'福'||' '||' '||' ' FROM DUAL UNION ALL
SELECT ' '||' '||' '||' '||' '||' '||' '||' '||'福'||'福'||' '||' '||' '||' '||'福'||'福'||'福'||'福'||' '||' '||' '||' '||' '||' ' FROM DUAL UNION ALL
SELECT ' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' ' FROM DUAL UNION ALL
SELECT ' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' ' FROM DUAL UNION ALL
SELECT ' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||'福'||' '||' '||' '||'福'||'福'||'福'||'福'||'福'||' '||' '||' ' FROM DUAL UNION ALL
SELECT ' '||' '||' '||' '||' '||' '||' '||'福'||'福'||'福'||' '||' '||'福'||'福'||'福'||'福'||' '||' '||' '||'福'||' '||' '||' '||' ' FROM DUAL UNION ALL
SELECT ' '||' '||' '||' '||' '||'福'||'福'||'福'||' '||'福'||' '||' '||' '||'福'||' '||' '||' '||' '||' '||'福'||' '||' '||' '||' ' FROM DUAL UNION ALL
SELECT ' '||'福'||'福'||'福'||'福'||' '||' '||' '||'福'||' '||' '||' '||' '||' '||'福'||' '||'福'||'福'||'福'||'福'||' '||' '||' '||' ' FROM DUAL UNION ALL
SELECT ' '||' '||' '||' '||' '||' '||' '||'福'||'福'||' '||' '||' '||' '||' '||'福'||'福'||' '||' '||' '||' '||' '||' '||' '||' ' FROM DUAL UNION ALL
SELECT ' '||' '||' '||' '||' '||' '||' '||'福'||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' ' FROM DUAL UNION ALL
SELECT ' '||' '||' '||' '||' '||' '||'福'||'福'||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||'福'||'福'||'福'||'福'||'福'||' ' FROM DUAL UNION ALL
SELECT ' '||' '||' '||' '||' '||' '||'福'||'福'||'福'||'福'||' '||'福'||'福'||'福'||'福'||'福'||'福'||'福'||' '||' '||' '||' '||'福'||'福' FROM DUAL UNION ALL
SELECT ' '||' '||' '||' '||' '||'福'||' '||'福'||' '||'福'||'福'||' '||'福'||' '||' '||' '||'福'||'福'||' '||' '||' '||' '||'福'||'福' FROM DUAL UNION ALL
SELECT ' '||' '||' '||' '||'福'||' '||' '||'福'||' '||' '||' '||' '||'福'||' '||' '||' '||'福'||' '||' '||' '||' '||' '||'福'||' ' FROM DUAL UNION ALL
SELECT ' '||' '||' '||'福'||' '||' '||' '||'福'||' '||' '||' '||' '||'福'||' '||' '||' '||'福'||'福'||'福'||'福'||' '||' '||'福'||' ' FROM DUAL UNION ALL
SELECT ' '||' '||' '||'福'||' '||' '||' '||'福'||' '||' '||' '||' '||'福'||' '||'福'||'福'||'福'||' '||' '||' '||' '||' '||'福'||' ' FROM DUAL UNION ALL
SELECT ' '||' '||'福'||' '||' '||' '||' '||'福'||' '||' '||' '||' '||'福'||' '||' '||' '||'福'||' '||' '||' '||' '||' '||'福'||' ' FROM DUAL UNION ALL
SELECT ' '||'福'||' '||' '||' '||' '||' '||'福'||' '||' '||' '||' '||'福'||' '||' '||' '||'福'||' '||' '||' '||' '||' '||'福'||' ' FROM DUAL UNION ALL
SELECT ' '||' '||' '||' '||' '||' '||' '||'福'||' '||' '||' '||' '||'福'||' '||' '||'福'||'福'||'福'||'福'||'福'||' '||' '||'福'||' ' FROM DUAL UNION ALL
SELECT ' '||' '||' '||' '||' '||' '||'福'||'福'||' '||' '||' '||' '||'福'||'福'||'福'||' '||' '||' '||' '||' '||'福'||' '||'福'||' ' FROM DUAL UNION ALL
SELECT ' '||' '||' '||' '||' '||' '||'福'||'福'||' '||' '||' '||' '||' '||'福'||' '||' '||' '||' '||' '||' '||'福'||'福'||' '||' ' FROM DUAL UNION ALL
SELECT ' '||' '||' '||' '||' '||' '||' '||'福'||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||'福'||' '||' ' FROM DUAL UNION ALL
SELECT ' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' ' FROM DUAL )
还可以倒过来
初级版三
方法同二，只是修改为以消息窗口输出，此sql语法为oracle语法，但是在openGauss上同样可以运行，只需要安装好compat-tools即可,另外关于openGauss更多的oracle兼容支持,可以参考我的这个项目
https://gitee.com/darkathena/opengauss-oracle
截图所示为openGauss的DATA STUDIO程序界面截图
DECLARE
a VARCHAR2(4000);
BEGIN
select listagg(f,chr(10)) within group(order by 1) into a from (
SELECT ' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' ' F FROM DUAL UNION ALL
SELECT ' '||' '||' '||' '||' '||' '||'福'||'福'||'福'||' '||' '||' '||' '||' '||' '||' '||' '||' '||'福'||'福'||' '||' '||' '||' ' FROM DUAL UNION ALL
SELECT ' '||' '||' '||' '||' '||' '||' '||'福'||'福'||'福'||' '||' '||' '||' '||' '||'福'||'福'||'福'||'福'||'福'||'福'||' '||' '||' ' FROM DUAL UNION ALL
SELECT ' '||' '||' '||' '||' '||' '||' '||' '||'福'||'福'||' '||' '||' '||' '||'福'||'福'||'福'||'福'||' '||' '||' '||' '||' '||' ' FROM DUAL UNION ALL
SELECT ' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' ' FROM DUAL UNION ALL
SELECT ' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' ' FROM DUAL UNION ALL
SELECT ' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||'福'||' '||' '||' '||'福'||'福'||'福'||'福'||'福'||' '||' '||' ' FROM DUAL UNION ALL
SELECT ' '||' '||' '||' '||' '||' '||' '||'福'||'福'||'福'||' '||' '||'福'||'福'||'福'||'福'||' '||' '||' '||'福'||' '||' '||' '||' ' FROM DUAL UNION ALL
SELECT ' '||' '||' '||' '||' '||'福'||'福'||'福'||' '||'福'||' '||' '||' '||'福'||' '||' '||' '||' '||' '||'福'||' '||' '||' '||' ' FROM DUAL UNION ALL
SELECT ' '||'福'||'福'||'福'||'福'||' '||' '||' '||'福'||' '||' '||' '||' '||' '||'福'||' '||'福'||'福'||'福'||'福'||' '||' '||' '||' ' FROM DUAL UNION ALL
SELECT ' '||' '||' '||' '||' '||' '||' '||'福'||'福'||' '||' '||' '||' '||' '||'福'||'福'||' '||' '||' '||' '||' '||' '||' '||' ' FROM DUAL UNION ALL
SELECT ' '||' '||' '||' '||' '||' '||' '||'福'||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' ' FROM DUAL UNION ALL
SELECT ' '||' '||' '||' '||' '||' '||'福'||'福'||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||'福'||'福'||'福'||'福'||'福'||' ' FROM DUAL UNION ALL
SELECT ' '||' '||' '||' '||' '||' '||'福'||'福'||'福'||'福'||' '||'福'||'福'||'福'||'福'||'福'||'福'||'福'||' '||' '||' '||' '||'福'||'福' FROM DUAL UNION ALL
SELECT ' '||' '||' '||' '||' '||'福'||' '||'福'||' '||'福'||'福'||' '||'福'||' '||' '||' '||'福'||'福'||' '||' '||' '||' '||'福'||'福' FROM DUAL UNION ALL
SELECT ' '||' '||' '||' '||'福'||' '||' '||'福'||' '||' '||' '||' '||'福'||' '||' '||' '||'福'||' '||' '||' '||' '||' '||'福'||' ' FROM DUAL UNION ALL
SELECT ' '||' '||' '||'福'||' '||' '||' '||'福'||' '||' '||' '||' '||'福'||' '||' '||' '||'福'||'福'||'福'||'福'||' '||' '||'福'||' ' FROM DUAL UNION ALL
SELECT ' '||' '||' '||'福'||' '||' '||' '||'福'||' '||' '||' '||' '||'福'||' '||'福'||'福'||'福'||' '||' '||' '||' '||' '||'福'||' ' FROM DUAL UNION ALL
SELECT ' '||' '||'福'||' '||' '||' '||' '||'福'||' '||' '||' '||' '||'福'||' '||' '||' '||'福'||' '||' '||' '||' '||' '||'福'||' ' FROM DUAL UNION ALL
SELECT ' '||'福'||' '||' '||' '||' '||' '||'福'||' '||' '||' '||' '||'福'||' '||' '||' '||'福'||' '||' '||' '||' '||' '||'福'||' ' FROM DUAL UNION ALL
SELECT ' '||' '||' '||' '||' '||' '||' '||'福'||' '||' '||' '||' '||'福'||' '||' '||'福'||'福'||'福'||'福'||'福'||' '||' '||'福'||' ' FROM DUAL UNION ALL
SELECT ' '||' '||' '||' '||' '||' '||'福'||'福'||' '||' '||' '||' '||'福'||'福'||'福'||' '||' '||' '||' '||' '||'福'||' '||'福'||' ' FROM DUAL UNION ALL
SELECT ' '||' '||' '||' '||' '||' '||'福'||'福'||' '||' '||' '||' '||' '||'福'||' '||' '||' '||' '||' '||' '||'福'||'福'||' '||' ' FROM DUAL UNION ALL
SELECT ' '||' '||' '||' '||' '||' '||' '||'福'||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||'福'||' '||' ' FROM DUAL UNION ALL
SELECT ' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' '||' ' FROM DUAL );
dbms_output.put_line(a);
end;
以上都是手动模拟位图像素点输出，这个方法要玩什么花样也只能在像素点用什么字符以及用什么字体上做区分，接下来上高级版，让大家知道sql还能做到何种程度
进阶版一
首先我尝试了oracle21c的oml4py，在oracle中调用python，根据文字生成图片，然而oml4py环境是运行在latin下的，只能处理128个ascii，无法处理中文字符。所以我就使用了我开发的pl4py组件，只要是oracle10g以上都可以在oracle环境中编写python函数并执行
还可以让背景色和文字色进行交换
pl4py项目地址 https://github.com/Dark-Athena/pl4py
--创建BASE64转BLOB函数
create or replace function base64toblob(base64_str clob)
return blob is
buf raw(64);
img blob;
l number;
begin
l := trunc(dbms_lob.getlength(base64_str) / 64) + 1;
dbms_lob.createtemporary(img, false);
for rec in 1 .. l loop
buf := utl_encode.base64_decode(utl_raw.cast_to_raw(dbms_lob.substr(base64_str,
64,
(rec - 1) * 64 + 1)));
dbms_lob.append(img, buf);
end loop;
return img;
end;
/
--创建python函数
BEGIN
PL4PY.create_func(i_func_name => 'pyqSTR2IMG.py',
i_contents => q'{def pyqSTR2IMG(str):
import pygame,base64
pygame.init()
text = str
font = pygame.font.SysFont('microsoftyaheiui', 50)
ftext = font.render(text, True, (255, 0, 0),(227, 222, 28))
pygame.image.save(ftext, "/home/oracle/str2img.png")
img=open("/home/oracle/str2img.png","r+b").read()
b=base64.b64encode(img).decode()
return b
}');
END;
/
---执行
select base64toblob(substr(a, 2, length(a) - 2)) r
from (select pl4py.call_func_Eval('pyqSTR2IMG.py', '福') a from dual) a;
同理，也可以使用oracle21c的dbms_mle功能，使用js调用html2canvas来进行绘图,本篇不再赘述，懂js的，可以参考我的另一个项目
dbms_mle_ext_pkg-https://github.com/Dark-Athena/dbms_mle_ext_pkg-oracle
使用这个包，不需要了解mle的语法及参数传输规则，只要懂plsql和js各自的语法即可轻松的在oracle中执行js代码
进阶版二
在小型点阵显示器上，比如老式的MP3屏幕，用的是字库点阵显示，根据汉字的gb2312编码来计算这个字在字库的哪个位置。如果我们把字库放到数据库里，用plsql模拟这个过程，也可以得到点阵字符输出
将背景替换成两个空格，字体替换成〇的效果
下面这个函数我为了节省代码量，提前计算好了福字所在的位置。
另外，这个函数中还使用了oracle的新特性限定表达式以及to_blob函数。
用到的字库文件为hzk16k，当然也可以使用其他字体及大小的点阵字库字库文件下载(字库文件来自于互联网,非本人收集)
create or replace function chr_from_hzk16 return varchar2 is
keys dbms_sql.Varchar2_Table := dbms_sql.Varchar2_Table(1 => '80',
2 => '40',
3 => '20',
4 => '10',
5 => '08',
6 => '04',
7 => '02',
8 => '01');
offsett int := 69247;
font_rect raw(2000);
ac raw(1);
flag int;
line varchar2(100);
out_str varchar2(4000);
begin
font_rect := dbms_lob.substr(lob_loc => to_blob(bfilename('DB_BACKUP_DIR',
'hzk16k')),
amount => 32,
offset => offsett);
for k in 1 .. 16 loop
line:='';
for j in 1 .. 2 loop
for i in 1 .. 8 loop
ac := dbms_lob.substr(lob_loc => font_rect,
amount => 1,
offset => k * 2 + j);
flag := bitand(to_number(to_char(ac),'xx'), to_number(KEYS (i ),'xx'));
line:=line||case when flag=0 then '.' else 'o' end;
end loop;
end loop;
out_str:=out_str||line||chr(10);
end loop;
dbms_output.put_line(out_str);
return out_str;
end;
/
select chr_from_hzk16 from dual;
进阶版三
上面几种方式,要么代码中输入的数据过多,要么就使用了外部程序或外部数据,有没有一种方案能跳出这两个缺点,而又能输出如进阶版二当中那样的显示效果呢？
进阶版二中,只使用了字库中的32字节数据,那么我们可以把这32字节数据先提取出来
000000001070098000701990E93009C0103C3BC4527492C4124411F810080000
可以看到前面后面都有0,我们可以把它截掉,下面这串就作程序的输入信息
1070098000701990E93009C0103C3BC4527492C4124411F81008
之所以不用utl_compress进行压缩,是因为这个字库本就已经压缩了,再压缩会导致数据体积变大。
这下我们只输入了长度为52的十六进制字符串(如果是二进制数据则只有26bytes),却得到了一个16*16的点阵文字信息,比文字自己显示的像素点还少
因为不再需要任何外部依赖,所以这段代码我们可以直接在墨天轮在线实训环境中执行
export NLS_LANG="AMERICAN_AMERICA.AL32UTF8"
sqlplus / as sysdba
set serveroutput on;
set linesize 1000;
declare
keys dbms_sql.Varchar2_Table := dbms_sql.Varchar2_Table(1 => '80',
2 => '40',
3 => '20',
4 => '10',
5 => '08',
6 => '04',
7 => '02',
8 => '01');
zk varchar2(64) := '1070098000701990E93009C0103C3BC4527492C4124411F81008';
font_rect blob;
ac raw(1);
flag int;
line varchar2(100);
out_str varchar2(4000);
begin
zk := lpad(zk, 60, '0');
zk := rpad(zk, 64, '0');
font_rect := to_blob(zk);
for k in 1 .. 16 loop
line := '';
for j in 1 .. 2 loop
for i in 1 .. 8 loop
ac := dbms_lob.substr(lob_loc => font_rect,
amount => 1,
offset => k * 2 + j);
flag := bitand(to_number(to_char(ac), 'xx'),
to_number(KEYS(i), 'xx'));
line := line || case
when flag = 0 then
' '
else
'〇'
end;
end loop;
end loop;
out_str := out_str || line || chr(10);
end loop;
dbms_output.put_line(out_str);
end;
/
进阶版四
有人肯定会说,出题者说是用sql,但我这有不少例子都是用的plsql,是不是犯规了？
那好,我就把上面这个版本换成select的sql。下面这个就是使用了递归sql来替代上面的循环处理(这里添加了base64编码,使输入信息更少)
with keys as
( select row_number()over(order by 1) id,column_value keys from
table(ora_mining_varchar2_nt('80','40','20','10','08','04','02','01'))) ,
zk as (select to_blob(utl_encode.base64_decode(utl_raw.cast_to_raw('AAAAABBwCYAAcBmQ6TAJwBA8O8RSdJLEEkQR+BAIAAA=='))) zk from dual),
i(line,str,i) as (
select 1 line, '' str,0 i from dual union all
select line+1, str||case when bitand(to_number(to_clob(dbms_lob.substr(lob_loc => zk,
amount => 1,
offset => trunc(line/8)+3)), 'xx'),
to_number((select keys from keys where keys.id=mod(line,8)+1), 'xx'))=0
then ' ' else '●'end||
case when mod(line+1,16)=0 then chr(10) end str,
mod(line,8)+1 i from zk,i where line<16*16)
select str from i where i.line=256;
在墨天轮实训环境中的演示效果
进阶版五
在做这些福字的时候,我发现一个问题,就是福字的像素都不够高,很难做出漂亮的,因为电脑的屏幕只有这么大,而且调程序显示字体大小有点麻烦。但是在网页上,浏览器只要ctrl+滑轮即可轻松调整页面大小,所以在墨天轮在线实训环境内,你可以凭你的想象去发挥。
最后,给大家做个大大的108p福,祝大家新的一年福气满满！
set pagesize 200
set linesize 200
with a as ( select
'1F8B0800000000000203BD9A097283300C45AFE477FFCB75A685C6602D5FC2844C9724D8CF46BB608CCAC1E5182F1DC6F4EF10C31977E284B9F66C4F9FE4318D77D6B5656C97C6B716F8E0F257473E1334EF5FBECE52B7D84AFB34E6DF5C74C0336369C17803FF46739C31FD7536416FF31CAFDBFC7F3FEE0E68898AFF7D182C7F523A229DE4A55FC304162FB0A41B198CFD51831E8A8D8696855E11763F8D062A63B9490F152972B20872AA09D4677D163AC12C841BC228A1B84D122B0AB1C8D0D242C9A60CC1D2609D4EB89A2F5240CD721A61B66B7FD7620D37978FD37C547DC7544057236347816EA0F35BC7BC42169A33508FEFB022DB230F688D6D44DA815E4872D14C4A693635965A4DBA2C3954B895AB61841EABC059BCF1B044E76B07AACBB05C24366BD458BE5566ACC09CE9A18E8C7B036B95BEE36275D491A4A7416B0EC8D9D450310573E16A8B88126B9E2B8C20D5423162D9D37AA9D399AF3D6505AA28C6AF4C5EDEF06E145358DDA05662DDD5CA32E042110561AEBBAA85DEA234E41C25791F8B9D3EF70D6B51CE421BE2EE1C6C5DF74C810A6B29156CBBF6597A07EE32CDCA226159D54A1ABF32DFE8A4F3508F29911F8E97A8B1D6047EDD89872AB28C5AC1645161D97994A700092B570DA374F67CDBFA2EC8EF40C87B11599E7D0D9915F9EC0ACBE905042C473724D3B60B308242526609D6B57C1E5C28A152F52FA15D589A97466525DB924A15391EA75D22EA2CA2CA89A0DD95B2E27A360F272821F3EE6DC556C0E834DAAEBBD01A03494F2F67D942933243D4BB0051C1D54405F1396D766529799D15B6F5C2EC5FBE1945E4F5A2EE9F728726AE678764894A17743C3B28B5FDC7E683E6779B519B61D4BF3F9B85BF3E6AFCBF396E629E4E492A235318F38BB303C3986E98B276656869D367F967E675FC77EEE93CA1230C9EEF8BA650E1CABBB2606595EE373E7A7EA6F188C95B9ABE6779FD519D9BCA8F1EC7A80CE65B8F2DED79FAAB93E73E276E126A6187726F72397E00C891656180280000'
a from dual),
b as (select to_clob(utl_compress.lz_uncompress(to_blob(a))) b from a),
c(line,str) as (select 0 line,'' str from dual
union all
select line+1,dbms_lob.substr( b,108,1+108*line) from b,c where line<=96)
select translate(str,'10',' 8') from c;
小技巧一
福字当然要大红色才喜气嘛(灵感来自于 https://www.modb.pro/db/234476 )
小技巧二
点阵放大
--横向放大2倍，用正则替换使字符翻倍
regexp_replace(str,'(\s|.)','\1\1')
--纵向放大两倍，接一个虚拟的两行记录的表产生笛卡尔积
,table(ora_mining_number_nt(1,2))
小技巧三
字符串太大，无法使用listagg聚合，可以使用oracle未公开的内置函数，理论最大可以拼4GB
select sys.AVTUNE_LOG_LISTAGGCLOB$(str||chr(10)) from table;
注意，此函数目前在网上找不到任何资料，本次属于独家首发公布。
更多神奇的数据库骚操作，请关注我，我不定时会在个人网站(www.darkathena.top)、个人公众号(DarkAthena-tech)、墨天轮www.modb.pro、CSDN(darkathena.blog.csdn.net)上发布有关数据库的新鲜玩意
最后修改时间：2022-02-17 14:04:27
【版权声明】本文为墨天轮用户原创内容，转载时必须标注文章的来源（墨天轮），文章链接，文章作者等基本信息，否则作者和墨天轮有权追究责任。如果您发现墨天轮中有涉嫌抄袭或者侵权的内容，欢迎发送邮件至：contact@modb.pro进行举报，并提供相关证据，一经查实，墨天轮将立刻删除相关内容。
