将数字转换为大写数字的脚本

uxfypy

在linuxsir看到的二个脚本，转出来学习下：
原作者为：lucida
bash

1. #!/bin/bash
   
2. #penny_ccf@hotmail.com
   
3. 
   
4. #it's ugly, but it works :)
   
5. 
   
6. 
   
7. cconvert(){
   
8. 
   
9. declare -a cnum;
   
10. declare -a cmag;
    
11. 
    
12. cnum[1]="壹"
    
13. cnum[2]="贰"
    
14. cnum[3]="叁"
    
15. cnum[4]="肆"
    
16. cnum[5]="伍"
    
17. cnum[6]="陆"
    
18. cnum[7]="柒"
    
19. cnum[8]="拔"
    
20. cnum[9]="玖"
    
21. cnum[0]="零"
    
22. 
    
23. cmag[0]=""
    
24. cmag[1]="拾"
    
25. cmag[2]="佰"
    
26. cmag[3]="仟"
    
27. cmag[4]="万"
    
28. cmag[5]="拾"
    
29. cmag[6]="百"
    
30. cmag[7]="千"
    
31. 
    
32. 
    
33. tempalpha="$1";
    
34. ctempmag=$2;
    
35. if [ $tempalpha == "00000000" ] ; then
    
36. CSTR="";
    
37. return 0;
    
38. fi
    
39. let templength="${#tempalpha}";
    
40. 
    
41. CSTR="";
    
42. for ((m=0;m<templength;m++))
    
43. do
    
44. tempi=${tempalpha:m:1};
    
45. let tempj="$templength-$m-1";
    
46. 
    
47. if ((( tempi == 0 )) && (( tempj ==4 ))); then
    
48. CSTR=$CSTR"万";
    
49. elif (( tempi == 0 )); then
    
50. CSTR=$CSTR${cnum[0]};
    
51. else
    
52. CSTR=$CSTR${cnum[$tempi]}${cmag[$tempj]};
    
53. fi
    
54. 
    
55. done
    
56. 
    
57. CSTR=$(echo $CSTR | sed -e 's/零零*/零/g' -e 's/零$//g' -e 's/零零零万//g');
    
58. CMAG="";
    
59. for ((m=0;m<ctempmag;m++))
    
60. do
    
61. CMAG=$CMAG"亿";
    
62. done
    
63. 
    
64. CSTR=$CSTR$CMAG;
    
65. }
    
66. 
    
67. alpha=$1;
    
68. length=${#alpha};
    
69. let k="$length/8";
    
70. let modl="$length%8";
    
71. MYSTR="";
    
72. 
    
73. tempstr=${alpha:0:$modl};
    
74. if ((modl>0)); then cconvert $tempstr $k; fi
    
75. 
    
76. MYSTR=$MYSTR$CSTR;
    
77. for ((i=0;i<k;i++))
    
78. do
    
79.   let pos="$i*8+modl";
    
80.   tempstr=${alpha:$pos:8};
    
81.   let tempmag="$k-$i-1";
    
82.   cconvert $tempstr $tempmag;
    
83.   MYSTR=$MYSTR$CSTR;
    
84. done  
    
85. 
    
86. echo $MYSTR | sed -e 's/亿零万/亿零/g'  -e 's/零万/万/g' -e 's/零亿/亿/g' -e 's/零零*/零/g' -e 's/零$//g';

复制代码

uxfypy

原作者为：LYOO
perl脚本：

1. #!/usr/bin/perl -w
   
2. 
   
3. # Chinese count method
   
4. # wrote by Lyoo
   
5. # iamlyoo@163.com
   
6. # 2003/07/22
   
7. 
   
8. 
   
9. # match @unit = qw / 个 拾 佰 仟 万 拾万 佰万 仟万/
   
10. @unit = qw / A B C D E F G H / ;
    
11. 
    
12. ############################################################################
    
13. #
    
14. # receive user's input
    
15. #
    
16. ############################################################################
    
17. 
    
18. $count = 0;
    
19. while ( $count < 1 ) {
    
20. print "Please input a number:";
    
21. chomp ($number = <STDIN>);
    
22. if ( $number =~ /^[-,+]?\d+\.?\d*$/ ) {
    
23. $count += 1;
    
24. } else {
    
25. print "It's not a Number!\n";
    
26. redo;
    
27. }
    
28. }
    
29. 
    
30. ############################################################################
    
31. #
    
32. # create a number_array
    
33. #
    
34. ############################################################################
    
35. 
    
36. # add a number to the number_string,
    
37. # so that the while-loop can get the "0" in the tail of the number_string.
    
38. $number_9 = $number."9";
    
39. 
    
40. # convert the number to a array.
    
41. $dot = "no";
    
42. while ($number_9) {
    
43. my $single = $number_9;
    
44. $single =~ s/([\d,.,+,-]).*/$1/;
    
45. $number_9 =~ s/[\d,.,+,-](.*)/$1/;
    
46. push (@number_array,$single);
    
47. $dot = "yes" if $single eq ".";
    
48. }
    
49. 
    
50. # delect the addition number.reverse the array.
    
51. pop @number_array;
    
52. @number_array = reverse @number_array;
    
53. 
    
54. # get number's sylobm.
    
55. $sylobm = "";
    
56. $sylobm = pop @number_array if $number_array[-1] =~ /[+,-]/;
    
57. 
    
58. # get the number_dot_string.
    
59. $number_dot_string = "";
    
60. if ($dot eq "yes") {
    
61. while (@number_array) {
    
62. $number_dot_string .= shift @number_array;
    
63. last if $number_dot_string =~ /\d\./;
    
64. };
    
65. $number_dot_string = reverse $number_dot_string;
    
66. };
    
67. 
    
68. 
    
69. #############################################################################
    
70. #
    
71. # creat a number_unit_array
    
72. #
    
73. #############################################################################
    
74. 
    
75. $min_unit = 9;
    
76. $j = 0;
    
77. $i = 0;
    
78. $n = 0;
    
79. 
    
80. foreach (@number_array) {
    
81. push (@number_unit_array,$unit[$i].$_);
    
82. 
    
83. if ($i == 0) {
    
84. $j++;
    
85. $min_unit = "on";
    
86. $switch = "on"
    
87. };
    
88. 
    
89. unless ($switch eq "off" || $_ eq "0") {
    
90. $min_unit = $n;
    
91. };
    
92. 
    
93. unless ($switch eq "off" || $min_unit eq "on") {
    
94. $number_unit_array[$min_unit] = ("Z" x ($j-1)).$number_unit_array[$min_unit];
    
95. $switch = "off";
    
96. }
    
97. 
    
98. $i++;
    
99. $n++;
    
100. $i = $i % 8;
     
101. }
     
102. 
     
103. #############################################################################
     
104. #
     
105. # modify the number_unit_string
     
106. #
     
107. #############################################################################
     
108. 
     
109. foreach (@number_unit_array) {
     
110. $number_unit_string .= $_;
     
111. }
     
112. $number_unit_string = reverse $number_unit_string;
     
113. $_ = $number_unit_string;
     
114. s/0[A-H]/0/g;
     
115. s/0+/0/g;
     
116. s/A//g;
     
117. s/0+$//;
     
118. 
     
119. #print "$_\n";
     
120. 
     
121. s/H(\d)G(\d)F(\d)E/D$1C$2B$3E/g;
     
122. 
     
123. s/H(\d)G(\d)F/D$1C$2F/g;
     
124. s/H(\d)G(\d)E/D$1C$2E/g;
     
125. s/H(\d)F(\d)E/D$1B$2E/g;
     
126. s/G(\d)F(\d)E/C$1B$2E/g;
     
127. 
     
128. 
     
129. s/H(\d)E/D$1E/g;
     
130. s/G(\d)E/C$1E/g;
     
131. s/F(\d)E/B$1E/g;
     
132. 
     
133. s/H(\d)F/D$1F/g;
     
134. s/G(\d)F/C$1F/g;
     
135. 
     
136. s/H(\d)G/D$1G/g;
     
137. 
     
138. $number_unit_string = "$sylobm"."$_"."$number_dot_string";
     
139. 
     
140. #############################################################################
     
141. #
     
142. # output the number_unit_string as a array
     
143. #
     
144. #############################################################################
     
145. 
     
146. # convert number_unit_string to array.
     
147. # it's ugly but without this action
     
148. # chinese can't output correct.
     
149. # I don't know why :(
     
150. 
     
151. while ($number_unit_string) {
     
152. my $single = $number_unit_string;
     
153. $single =~ s/([\w,.,+,-]).*/$1/;
     
154. $number_unit_string =~ s/[\w,.,+,-](.*)/$1/;
     
155. push (@number_unit_ok,$single);
     
156. }
     
157. #print "number_unit_ok is @number_unit_ok.\n";
     
158. 
     
159. foreach (@number_unit_ok) {
     
160. &print_chinese;
     
161. }
     
162. print "\n";
     
163. 
     
164. sub print_chinese {
     
165. if ($_ eq 0) {
     
166. print "零";
     
167. } elsif ($_ eq 1) {
     
168. print "壹";
     
169. } elsif ($_ eq 2) {
     
170. print "贰";
     
171. } elsif ($_ eq 3) {
     
172. print "叁";
     
173. } elsif ($_ eq 4) {
     
174. print "肆";
     
175. } elsif ($_ eq 5) {
     
176. print "伍";
     
177. } elsif ($_ eq 6) {
     
178. print "陆";
     
179. } elsif ($_ eq 7) {
     
180. print "柒";
     
181. } elsif ($_ eq 8) {
     
182. print "捌";
     
183. } elsif ($_ eq 9) {
     
184. print "玖";
     
185. } elsif ($_ eq A) {
     
186. print "个";
     
187. } elsif ($_ eq B) {
     
188. print "拾";
     
189. } elsif ($_ eq C) {
     
190. print "佰";
     
191. } elsif ($_ eq D) {
     
192. print "仟";
     
193. } elsif ($_ eq E) {
     
194. print "万";
     
195. } elsif ($_ eq F) {
     
196. print "拾万";
     
197. } elsif ($_ eq G) {
     
198. print "佰万";
     
199. } elsif ($_ eq H) {
     
200. print "仟万";
     
201. } elsif ($_ eq Z) {
     
202. print "亿";
     
203. } elsif ($_ eq "+") {
     
204. print "<正>";
     
205. } elsif ($_ eq "-") {
     
206. print "<负>";
     
207. } elsif ($_ eq ".") {
     
208. print "<点>";
     
209. }
     
210. }
     
211. 
     
212. #############################################################################
     
213. # the end of this script
     
214. ##############################################################################

复制代码