xugu对pl/sql的支持还有问题

pkmonster

〇〇 发表于 2014-4-22 09:35
mystr2呢

改写了一个等价的, 减少一些函数调用:

SQL>create or replace function mytrs_ex(
2       a varchar,
3       b varchar,
4       c varchar)
5   return varchar
6   is
7       d   varchar(10);
8       idx int;
9   begin
10      if c is not null then
11          for i in 1..length(a) loop
12              idx := locate(substr(a, i, 1), b);
13
14              if idx > 0 then
15                  d := d || substr(c, idx, 1);
16              end if;
17          end loop;
18
19          return d;
20      else
21          return null;
22      end if;
23  end;
24  /
操作已执行
已用时间: 2.319(毫秒). 执行号:93.
SQL>select max(mytrs_ex(rn,'1234567890','abcdefghij')) from t100k;

行号       MAX(MYTRS_EX(RN,'1234567890','abcdefghij'))
---------- -------------------------------------------
1          ijjjj

已用时间: 662.635(毫秒). 执行号:94.
SQL>select max(mytrs_ex(rn,'1234567890','abcdefghij')) from t100k;

行号       MAX(MYTRS_EX(RN,'1234567890','abcdefghij'))
---------- -------------------------------------------
1          ijjjj

已用时间: 667.078(毫秒). 执行号:95.
SQL>

〇〇

pkmonster 发表于 2014-4-22 11:01
改写了一个等价的, 减少一些函数调用:

SQL>create or replace function mytrs_ex(

locate函数，oracle没听说过

〇〇

pkmonster 发表于 2014-4-22 11:01
改写了一个等价的, 减少一些函数调用:

SQL>create or replace function mytrs_ex(

不等价
SQL>select mytrs_ex('123','189','567') from dual;

行号       MYTRS_EX('123','189','567')
---------- ---------------------------
1          5

已用时间: 0.969(毫秒). 执行号:66.
SQL>select translate('123','189','567') from dual;

行号       TRANSLATE('123','189','567')
---------- ----------------------------
1          523

已用时间: 1.291(毫秒). 执行号:67.

〇〇

〇〇 发表于 2014-4-22 12:57
不等价
SQL>select mytrs_ex('123','189','567') from dual;

create or replace function mytrs_e1(
    a varchar,
    b varchar,
    c varchar)
return varchar
is
    d   varchar(10);
    idx int;
begin
    if c is not null then
        for i in 1..length(a) loop
            idx := locate(substr(a, i, 1), b);

            if idx > 0 then
                d := d || substr(c, idx, 1);
                else
                d := d ||substr(a, i, 1);
            end if;
        end loop;

        return d;
    else
        return null;
    end if;
end;
/

SQL>select max(mytrs_ex(rn,'1234567890','abcdefghij')) from t100k;

行号       MAX(MYTRS_EX(RN,'1234567890','abcdefghij'))
---------- -------------------------------------------
1          ijjjj

已用时间: 942.741(毫秒). 执行号:71.
SQL>select max(mytrs_e1(rn,'1234567890','abcdefghij')) from t100k;

行号       MAX(MYTRS_E1(RN,'1234567890','abcdefghij'))
---------- -------------------------------------------
1          ijjjj

已用时间: 00:00:01.091. 执行号:72.

pkmonster

ex版本丢了没有匹配的字符，e1版本才是等价的。 这个locate好像mysql, db2都有。

pkmonster

"else
   return null;"  可以省略， 对于达梦7， 如果没有返回语句，会自动返回NULL

〇〇

Locate就是instr参数倒过来