Jak przekonwertować liczbę na tekst w Perlu?

Question

Potrzebuję kodu w moim programie, który pobiera liczbę jako dane wejściowe i zamienia ją na odpowiedni tekst, np. 745 do "siedemset czterdzieści pięć".

Teraz mogę napisać kod, ale czy istnieje biblioteka lub istniejący kod, którego mogę użyć?

Answer 1

Proszę spojrzeć na moduł Math::BigInt::Named.

Answer 2

Zobacz także Nums2Words.

Answer 3

Trzeba spojrzeć na this stackoverflow question

Od wyżej wymienionym adresem:

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

Answer 4

Od perldoc z 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"; 

nadrukami:

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

Answer 5

Można spróbować czegoś takiego:

#!/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; 
} 

Wyjście jest:

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