Как преобразовать число в текст в Perl?

Question

Мне нужен код в моей программе, который принимает число в качестве входных данных и преобразует его в соответствующий текст, например. 745 - «семьсот сорок пять».

Теперь я могу написать код для этого, но есть ли какая-либо библиотека или существующий код, который я могу использовать?

Answer 1

Посмотрите на модуль Math::BigInt::Named.

Answer 2

Также взгляните на Nums2Words.

Answer 3

Вы должны смотреть на this stackoverflow question

Из вышеуказанной ссылке:

perl -MNumber::Spell -e 'print spell_number(2);' 

Answer 4

От perldoc из Lingua::EN::Numbers:

use Lingua::EN::Numbers qw(num2en num2en_ordinal); 

my $x = 234; 
my $y = 54; 
print "You have ", num2en($x), " things to do today!\n"; 
print "You will stop caring after the ", num2en_ordinal($y), ".\n"; 

печатает:

You have two hundred and thirty-four things to do today! 
You will stop caring after the fifty-fourth. 

Answer 5

Вы можете попробовать что-то вроде этого:

#!/usr/bin/perl 

use strict; 
use warnings; 

my %numinwrd = (
    0 => 'Zero', 1 => 'One', 2 => 'Two', 3 => 'Three', 4 => 'Four', 
    5 => 'Five', 6 => 'Six', 7 => 'Seven', 8 => 'Eight', 9 => 'Nine', 
); 

print "The number when converted to words is 745=>".numtowrd(745)."\n"; 

sub numtowrd { 
    my $num = shift; 
    my $txt = ""; 
    my @val = $num =~ m/./g; 

    foreach my $digit (@val) {  
    $txt .= $numinwrd{$digit} . " "; 
    } 

    return $txt; 
} 

Выход:

The number when converted to words is 745=>Seven Four Five