मैं पर्ल में किसी संख्या को टेक्स्ट में कैसे परिवर्तित कर सकता हूं?

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