Come posso convertire un numero in testo in Perl?

Question

Ho bisogno di un codice nel mio programma che prende un numero come input e lo converte in testo corrispondente, ad es. 745 a "settecento quarantacinque".

Ora posso scrivere codice per questo, ma è possibile utilizzare una libreria o un codice esistente?

Answer 1

Dai uno sguardo al modulo Math::BigInt::Named.

Answer 2

Anche dare un'occhiata a Nums2Words.

Answer 3

È necessario guardare this stackoverflow question

Dalla suddetta link:

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

Answer 4

Da perldoc di 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"; 

stampe:

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

Answer 5

Si può provare qualcosa di simile:

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

L'output è:

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