Perl數字與字串間的自動轉換

2021-08-05 20:05:52 字數 1217 閱讀 9745

最近遇到了乙個關於 perl數字與字串間的自動轉換的問題，以前都是用的字串替換，覺得太蠢了而且很費時間，所以決定重新寫乙個。

**如下：

use strict;


use warnings;


use data::dumper;


use encode;


##  遞迴求結果


sub resluttoch


elsif($numlenth eq 2)else


##  取餘數


$string_ch .= resluttoch($input_ch % 10);


}  elsif($numlenth eq 3)


$string_ch .= resluttoch(int($input_ch % 100));


}  elsif($numlenth eq 4)


$string_ch .= resluttoch(int($input_ch % 1000));


}  elsif($numlenth eq 5)


$string_ch .= resluttoch(int($input_ch % 10000));


}  return


$string_ch;


}##  基礎數字方法


sub numbergetchelsif($input eq 2)


elsif($input eq 3)


elsif($input eq 4)


elsif($input eq 5)


elsif($input eq 6)


elsif($input eq 7)


elsif($input eq 8)


elsif($input eq 9)


$resultstring = encode('utf8', $resultstring);


$resultstring = decode('utf8', $resultstring);


return


$resultstring;


}
這裡需要注意，當最後輸入數字末尾未 「0」時，需要特殊處理，將末尾未「0」的給過濾掉，不然就會出現 10580=「一萬零五百八零」的結果。

「0」這個數字比較特殊，單獨進行轉換。

這段**利用了遞迴的方式進行處理字串。更加的方便快捷，其實可以繼續增加數量級，但是由於我只需要用到「萬」，就沒有繼續往下寫。

有興致的童鞋可以繼續往下寫哦~

JavaScript數字轉字串，字串轉數字

1 數字轉字串 這裡的name需要繫結字串型別，而index是陣列型別，就是拼接了乙個空字串 也可以使用tostring 字串轉數字 2 var s 234 3 1 純數字轉換 4 5 1 字串在運算操作中會被當做數字型別來處理 6 s 1 7 8 2 字元前加 9 console.log s 10...

數字轉字串 字串轉數字

數字轉字串 這裡首先用到乙個陣列逆置函式如下 void reverse char arr 逆置 for p arr p arr p 將arr陣列逆置 因為將乙個數字轉成字串，若果是從右往左依次獲得，操作較容易，所以以此得到的字串是數字的逆序字串，所以要逆置，才可得到順序 如下 void myitoa...

數字轉字串

數字換字串效率，寫了個 測試了下，發現最快方式是數字後面直接拼接空字串。public class a system.out.println 使用方法轉換用時 system.currenttimemillis s s system.currenttimemillis for double d 0 d ...