[造轮子]Perl脚本金额数字转中文大写

523066680

稍微做了改进

1. use IO::Handle;
   
2. use utf8;
   
3. use Encode;
   
4. STDOUT->autoflush(1);
   
5. STDERR->autoflush(1);
   
6. binmode(STDOUT, ":encoding(gbk)");
   
7. 
   
8. our @unit_f = ("", "角");            #分省略，最后补上
   
9. our @part = ("", "萬", "亿");        #元省略，最后补上
   
10. our @unit = ("", "拾", "佰", "仟");  #同上
    
11. our @cnum = qw/零 壹 贰 叁 肆 伍 陆 柒 捌 玖 拾/;
    
12. 
    
13. foreach (
    
14.     1.01,
    
15.     900000000,
    
16.     0.0,
    
17.     7.2,
    
18.     12300100.12,
    
19.     101010101
    
20. ) {
    
21.     printf &main($_) . "\n";
    
22. }
    
23. <STDIN>;
    
24. 
    
25. sub main {
    
26.     my $inp = shift;
    
27.     my ($str, $sect) = ("", "");
    
28.     my ($ni, $nf, $i) = ("", "", undef);
    
29. 
    
30.     return "零元" if ($inp == 0);
    
31. 
    
32.     #整数部分和小数部分
    
33.     ($ni, $nf) = split(/\./, sprintf("%.2f", $inp));
    
34. 
    
35.     #处理整数部分
    
36.     $i = 0;
    
37.     while ($ni ne "") {
    
38.         $ni=~s/(\d{0,4})$//;       #每四位数为一段进行截取
    
39.         $sect = &func($1, \@unit);
    
40.                                    # 如果某段大写返回为空（0000），则缩略
    
41.                                    # 例如壹亿，而不是壹亿萬
    
42.         if ($sect ne "") {
    
43.             $str = $sect . $part[$i] . $str;      
    
44.         }
    
45.         $i++;
    
46.     }
    
47.     $str .="元" if ($str ne "");
    
48. 
    
49.     #处理角和分
    
50.     $sect = &func($nf, \@unit_f);
    
51.     if ($sect ne "") {
    
52.         $str = $str . $sect;
    
53.         $str = $str ."分" unless ($sect=~/角$/);
    
54.     }
    
55. 
    
56.     return $str;
    
57. }
    
58. 
    
59. sub func {
    
60.     our @cnum;
    
61.     my ($num, $unit) = (shift, shift);
    
62.     my @ints = reverse( split("", $num) );  #反转成 (个,十,佰,仟)
    
63.     my $prev = 1;
    
64.     my $begin = 0;
    
65.     my $i;
    
66.     my $str = "";
    
67. 
    
68.     #略过低位连续出现的零
    
69.     #例如，一百零拾零元简写为：一百元
    
70.     while (
    
71.         defined $ints[$begin]
    
72.             and
    
73.         $ints[$begin] == 0
    
74.     ) {
    
75.         $begin++;
    
76.     }
    
77. 
    
78.     foreach $i ($begin .. $#ints) {
    
79.         if (
    
80.             $ints[$i] == 0
    
81.         ) {
    
82.             if ($prev != 0) {
    
83.                 $str = $cnum[$ints[$i]] . $str;   #零
    
84.                 $prev = 0;
    
85.             }
    
86.             next;
    
87.         }
    
88.         $prev = $ints[$i];
    
89.         $str = $cnum[$ints[$i]] . $unit->[$i] . $str;
    
90.     }
    
91.     return $str;
    
92. }

复制代码