[20241110]使用xto10.sql指令碼遇到的問題.txt

[20241110]使用xto10.sql指令碼遇到的問題.txt

--//自己在使用xto10.sql指令碼時，輸入引數錯誤，我沒有想到竟然執行有結果，例子：

SYS@book> @ xto10 d5f8b304 10
BASE10 BASE10
------------------------------ ------------------------------
d5f8b304 136591304

--//按照道理我輸入一個16進位制數，轉換10進位制，應該輸入如下：

SYS@book> @ xto10 d5f8b304 ''

BASE16 BASE10
------------------------------ ------------------------------
d5f8b304 3589845764

SYS@book> @ xto10 d5f8b304 16

BASE16 BASE10
------------------------------ ------------------------------
d5f8b304 3589845764

--//注：如果沒有引數2預設16。
--//我前面執行也 成功，相當於

d5f8b304
d->13 f->15 b->11

13*10^7+ 5*10^6+ 15*10^5+ 8*10^4+ 11*10^3+ 304 = 136591304

--//主要問題是無法保證輸入引數1的是對應進位制X的型別，比如d5f8b304。例子：
SYS@book> @ xto10 z 2
BASE2 BASE10
------------------------------ ------------------------------
z 35
--//無法保證z是2進位制數。導致結果出現35.
--//也就是先要根據引數2判斷引數1是否符合需求，採用繼續執行。

--//而16進位制限制16進位制碼錶，找不到z出現負數。
SYS@book> @ xto10 z 16
BASE16 BASE10
------------------------------ ------------------------------
z -1

--//做一點改進，限制編碼長度，並且如果n=-1,在顯示結果時提示錯誤。
SYS@book> @ xto10 8d 10
BASE10 BASE10 ERRMSG
------------------------------ ------------------------------ ------
8d 79 bad!
--//注：d 在10進製取不到編碼返回-1，這樣計算結果時80-1=79.但是我判斷裡面出現返回-1的情況，ERRMSG顯示錯誤。

SCOTT@book> @ xto10 8d 16
BASE16 BASE10 ERRMSG
------------------------------ ------------------------------ ----
8d 141 good

--//10tox.sql以及xtoy.sql指令碼，也應該存在類似問題，有空也檢檢視看。

--//原始碼修改如下：
$ cat xto10.sql
-- Copyright 2023 lfree. All rights reserved.
-- Licensed under the Apache License, Version 2.0. See LICENSE.txt for terms and conditions.
--------------------------------------------------------------------------------
--
-- File name: xto10.sql
-- Purpose: decimal convert Ximal
--
-- Author: lfree
--
-- Usage:
-- @ xto10 <Ximal_value> Ximal
-- convert hexadecimal to decimal
-- @ xto10 <hexadecimal>
-- @ xto10 <hexadecimal> 16
--
--------------------------------------------------------------------------------
set term off
column 2 new_value 2
select null "2" from dual where 1=2;
select nvl('&2',16) "2" from dual;
set term on

column base10 format a30
column base&&2 format a30
column errmsg format a6

SELECT CASE &2 WHEN 16 THEN LOWER ('&&1') ELSE '&&1' END base&2, TO_CHAR (SUM (n * POWER (&2, p))) base10,min(decode(n,-1,'bad!','good')) errmsg
--SELECT CASE &2 WHEN 16 THEN LOWER ('&&1') ELSE '&&1' END base&2, TO_CHAR (SUM (n * POWER (&2, p))) base10
FROM ( SELECT INSTR
(
CASE &&2
WHEN 32
THEN
'0123456789abcdfghjkmnpqrstuvwxyz'
WHEN 16
THEN
'0123456789abcdef'
ELSE
substr('0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ@_',1,&&2)
END
,SUBSTR
(
CASE &2 WHEN 16 THEN LOWER ('&&1') ELSE '&&1' END
,LEVEL
,1
)
)
- 1
N
,LENGTH ('&&1') - LEVEL P
,SUBSTR ('&&1', LEVEL, 1) C
FROM DUAL
CONNECT BY LEVEL <= LENGTH ('&&1'));