Форум программистов [Powered by Invision Power Board]

Код

#!/usr/bin/perl -w
#
#    сумма прописью
#
#    vadim    17.10.2004    v.0.1

sub d2s {
    my ( $qq, $tp, $ll ) = @_;
    if ( $qq > 0 ) {
        my (%dx, %d1x, %dx0, %dx00, %d10x);

        my $lg = 'ru';
        $dx{$lg}[0] = 'ноль';
        $dx{$lg}[1][0] = 'одна';
        $dx{$lg}[1][1] = 'одна';
        $dx{$lg}[1][2] = 'один';
        $dx{$lg}[1][3] = 'один';
        $dx{$lg}[2][0] = 'две';
        $dx{$lg}[2][1] = 'две';
        $dx{$lg}[2][2] = 'два';
        $dx{$lg}[2][3] = 'два';
        $dx{$lg}[3] = 'три';
        $dx{$lg}[4] = 'четыре';
        $dx{$lg}[5] = 'пять';
        $dx{$lg}[6] = 'шесть';
        $dx{$lg}[7] = 'семь';
        $dx{$lg}[8] = 'восемь';
        $dx{$lg}[9] = 'девять';
        $d1x{$lg}[0] = 'десять';
        $d1x{$lg}[1] = 'одиннадцать';
        $d1x{$lg}[2] = 'двенадцать';
        $d1x{$lg}[3] = 'тринадцать';
        $d1x{$lg}[4] = 'четырнадцать';
        $d1x{$lg}[5] = 'пятнадцать';
        $d1x{$lg}[6] = 'шестнадцать';
        $d1x{$lg}[7] = 'семнадцать';
        $d1x{$lg}[8] = 'восемнадцать';
        $d1x{$lg}[9] = 'девятнадцать';
        $dx0{$lg}[2] = 'двадцать';
        $dx0{$lg}[3] = 'тридцать';
        $dx0{$lg}[4] = 'сорок';
        $dx0{$lg}[5] = 'пятьдесят';
        $dx0{$lg}[6] = 'шестьдесят';
        $dx0{$lg}[7] = 'семьдесят';
        $dx0{$lg}[8] = 'восемдесят';
        $dx0{$lg}[9] = 'девяносто';
        $dx00{$lg}[1] = 'сто';
        $dx00{$lg}[2] = 'двести';
        $dx00{$lg}[3] = 'триста';
        $dx00{$lg}[4] = 'четыреста';
        $dx00{$lg}[5] = 'пятсот';
        $dx00{$lg}[6] = 'шестьсот';
        $dx00{$lg}[7] = 'семьсот';
        $dx00{$lg}[8] = 'восемьсот';
        $dx00{$lg}[9] = 'девятьсот';
        $d10x{$lg}[0][0] = 'гривна';
        $d10x{$lg}[0][1] = 'гривны';
        $d10x{$lg}[0][2] = 'гривен';
        $d10x{$lg}[1][0] = 'тысяча';
        $d10x{$lg}[1][1] = 'тысячи';
        $d10x{$lg}[1][2] = 'тысяч';
        $d10x{$lg}[2][0] = 'миллион';
        $d10x{$lg}[2][1] = 'миллиона';
        $d10x{$lg}[2][2] = 'миллионов';
        $d10x{$lg}[3][0] = 'миллиард';
        $d10x{$lg}[3][1] = 'миллиарда';
        $d10x{$lg}[3][2] = 'миллиардов';

        my $ss = '';
        if ( $qq =~ /^((\d)?(\d))?(\d)$/ ) {
            my ($s3, $s2, $s1) = ($2, $3, $4);
            if ( $s3 ) {
                # сотни
                $ss .= ' '.$dx00{$ll}[$s3];
            };
            if ( $s2 ) {
                # десятки
                if ( $s2 == 1 ) {
                    $ss .= ' '.$d1x{$ll}[$s1];
                }
                else {
                    $ss .= ' '.$dx0{$ll}[$s2];
                }
            };
            # единицы
            unless ( $s2 and $s2 == 1 ) {
                if ( $s1 == 1 or $s1 == 2 ) {
                    $ss .= ' '.$dx{$ll}[$s1][$tp];
                }
                else {
                    if ( $s1 != 0 ) {
                        $ss .= ' '.$dx{$ll}[$s1];
                    };
                };
            };
            $s2 = 0 unless $s2;

            # окончание
            if ( $s1 == 1 and $s2 != 1 ) {
                $ss .= ' '.$d10x{$ll}[$tp][0];
            }
            elsif ( $s1 >= 2 and $s1 <= 4 and $s2 != 1 ) {
                $ss .= ' '.$d10x{$ll}[$tp][1];
            }
            else {
                $ss .= ' '.$d10x{$ll}[$tp][2];
            };
        };
        return $ss;
    }
    else {
        return '';
    };
};

sub dig2str {
    my ( $dig, $ll ) = @_;

    my $str = '';

    if ( $dig =~ /^(\d+)(.(\d{1,2}))?$/ ) {
        my $sm1 = $1;
        my $sm2 = $3;
        $sm2 *= 10 if ( $sm2 =~ /^\d$/ );
        $sm2 = 0 unless $sm2;

        my $i = 0;
        while ( $sm1 > 0 ) {
            if ( $sm1 =~ /^\d+(\d{3})$/ ) {
                $str = d2s($1, $i++, $ll).$str;
                $sm1 = int($sm1/1000);
            }
            else {
                $str = d2s($sm1, $i++, $ll).$str;
                $sm1 = 0;
            };
        };
        if ( $sm1 == 0 and $i == 0 ) {
            $str = ' ноль гривен';
        };

        return $str.' '.$sm2.' копеек';
    }
    else {
        return ' ноль гривен 0 копеек' ;
    };
}

1;