【Oracle】在PL/SQL中使用sql实现选择排序
一般来说，SQL要排序的话直接使用order by即可
不一般来说，就是瞎搞，正好也可以巩固自己的数据结构基础
使用SQL实现排序系列：
使用SQL实现冒泡排序
以下是正文：
规范：
create or replace package data_structure_pkg is
procedure xuanze_get_data(p_data varchar2);
end data_structure_pkg;
体：
create or replace package body data_structure_pkg is
--------------------以下为排序部分----------------------
--定义一个存储数据的临时表
type numtable1 is table of long index by binary_integer;
---------------------------------
--选择排序主方法
procedure xuanze_get_data(p_data varchar2) is
v_data numtable1;
n number := 1;
p_num number;
p_min number;
begin
--以;作为分隔符，将数字进行分离
for sub_data in (select tt.data as sdata
from (select regexp_substr(p_data, '[^;]+', 1, level) data
from dual bd
connect by level <=
regexp_count(p_data, ';') + 1) tt
where rownum <= regexp_count(p_data, ';') + 1) loop
--放入临时表
v_data(n) := sub_data.sdata;
--打印出来原顺序的数据
dbms_output.put_line('排序前第' || n || '位：' || v_data(n) || '|');
--递增
n := n + 1;
end loop;
dbms_output.put_line('-------------------------------------');
/********
首先在未排序序列中找到最小（大）元素，存放到排序序列的起始位置
再从剩余未排序元素中继续寻找最小（大）元素，然后放到已排序序列的末尾
*********/
--排序
for i in 1 .. v_data.count loop
p_min := i;
--依次提取i次下标位数字
for j in (i + 1) .. v_data.count loop
if to_number(v_data(j)) < to_number(v_data(p_min)) then
--记录目前能找到的最小值元素的下标
p_min := j;
end if;
end loop;
--将找到的最小值和i位置所在的值进行交换
if i != p_min then
p_num := to_number(v_data(i));
v_data(i) := v_data(p_min);
v_data(p_min) := p_num;
end if;
end loop;
--打印出来排序以后的数据
for z in 1 .. v_data.count loop
dbms_output.put_line('排序后第' || z || '位：' || v_data(z) || '|');
end loop;
end xuanze_get_data;
end data_structure_pkg;
输入数据
2;34;1;5;9;8;6;13;25;24;56
得到结果
