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

523066680

保存为utf-8文本格式。
没有做太多测试，欢迎测试BUG，欢迎各位分享更简单的代码。

use utf8;
use Encode;
binmode(STDOUT, ":encoding(gbk)");

our @unit_f = ("", "角");            #分省略，最后补上
our @part = ("", "萬", "亿");        #元省略，最后补上
our @unit = ("", "拾", "佰", "仟");  #同上
our @cnum = qw/零 壹 贰 叁 肆 伍 陆 柒 捌 玖 拾/;

my ($inp, $str, $sect) = (undef, "", "");
my ($ni, $nf, $i);
my ($fa, $fb);
$inp=50050001.51;
($ni, $nf) = split(/\./, sprintf("%.2f", $inp));

$i = 0;
#处理整数部分
while ($ni ne "") {
    $ni=~s/(\d{0,4})$//;    #每四位数为一段进行截取
    $sect = &func($1);
        # 如果某段大写返回为空（全0的情况），则缩略
        # 例如壹亿，而不是壹亿萬
    if ($sect ne "") {
        $str = $sect . $part[$i] . $str;       
    }
    $i++;
}
$str = $str."元";

#处理角和分
@unit = (@unit_f);
$sect = &func($nf);
if ($sect ne "") {
    $str = $str . $sect;
    $str = $str ."分" unless ($sect=~/角$/);
}
print $str;

sub func {
    our @unit;
    our @cnum;
    my @ints = reverse( split("", $_[0]) );  #反转成 (个,十,佰,仟)
    my $prev = 1;
    my $begin = 0;
    my $i;
    my $str = "";

    #如果低位连续出现零，略过。
    #例如，一百零拾零元简写为：一百元
    while ( 
        defined $ints[$begin]
            and
        $ints[$begin] == 0 
    ) {
        $begin++;
    }

    foreach $i ($begin .. $#ints) {
        if ( 
            $ints[$i] == 0
        ) {
            if ($prev != 0) {
                $str = $cnum[$ints[$i]] . $str;     #零
                $prev = 0;
            }
            next;
        }
        $prev = $ints[$i];
        $str = $cnum[$ints[$i]] . $unit[$i] . $str;
    }
    return $str;
}
复制代码

523066680

回复 3# neorobin

对比之下发现我那个漏了零元整以及零点几的情况。
另：
    nerobin有没有学C/C++，看之前的分析代码应该是会C的

523066680

回复 5# neorobin

       早一点撸C/C++，我觉得现阶段的nerobin需要更强大的语言去实现那些想法。
关键是有些轮子造出来后，后期维护起来方便很多。批处理写复杂了，时间久了就算有BUG也不想改了。

我觉得。

523066680

回复 7# neorobin


    好吧。

523066680

回复 10# CrLf


    因为PHP是世界上最好的语言？！

523066680

回复 12# CrLf


    肚腩照明月？

523066680

回复 14# CrLf


    我是说你晚上吃这么多是要撑破肚皮晒月亮么？ CU那个肚腩照明月Perl好像很老练啊。
  走，我们去文字消遣区。

523066680

稍微做了改进

use IO::Handle;
use utf8;
use Encode;
STDOUT->autoflush(1);
STDERR->autoflush(1);
binmode(STDOUT, ":encoding(gbk)");

our @unit_f = ("", "角");            #分省略，最后补上
our @part = ("", "萬", "亿");        #元省略，最后补上
our @unit = ("", "拾", "佰", "仟");  #同上
our @cnum = qw/零 壹 贰 叁 肆 伍 陆 柒 捌 玖 拾/;

foreach (
    1.01, 
    900000000, 
    0.0,
    7.2,
    12300100.12, 
    101010101
) {
    printf &main($_) . "\n";
}
<STDIN>;

sub main {
    my $inp = shift;
    my ($str, $sect) = ("", "");
    my ($ni, $nf, $i) = ("", "", undef);

    return "零元" if ($inp == 0);

    #整数部分和小数部分
    ($ni, $nf) = split(/\./, sprintf("%.2f", $inp));

    #处理整数部分
    $i = 0;
    while ($ni ne "") {
        $ni=~s/(\d{0,4})$//;       #每四位数为一段进行截取
        $sect = &func($1, \@unit);
                                   # 如果某段大写返回为空（0000），则缩略
                                   # 例如壹亿，而不是壹亿萬
        if ($sect ne "") {
            $str = $sect . $part[$i] . $str;       
        }
        $i++;
    }
    $str .="元" if ($str ne "");

    #处理角和分
    $sect = &func($nf, \@unit_f);
    if ($sect ne "") {
        $str = $str . $sect;
        $str = $str ."分" unless ($sect=~/角$/);
    }

    return $str;
}

sub func {
    our @cnum;
    my ($num, $unit) = (shift, shift);
    my @ints = reverse( split("", $num) );  #反转成 (个,十,佰,仟)
    my $prev = 1;
    my $begin = 0;
    my $i;
    my $str = "";

    #略过低位连续出现的零
    #例如，一百零拾零元简写为：一百元
    while ( 
        defined $ints[$begin]
            and
        $ints[$begin] == 0 
    ) {
        $begin++;
    }

    foreach $i ($begin .. $#ints) {
        if ( 
            $ints[$i] == 0
        ) {
            if ($prev != 0) {
                $str = $cnum[$ints[$i]] . $str;   #零
                $prev = 0;
            }
            next;
        }
        $prev = $ints[$i];
        $str = $cnum[$ints[$i]] . $unit->[$i] . $str;
    }
    return $str;
}
复制代码