nix-archive-1(type directoryentry(namelibnode(type directoryentry(nameperl5node(type directoryentry(name site_perlnode(type directoryentry(name5.36.0node(type directoryentry(nameLinguanode(type directoryentry(nameENnode(type directoryentry(name Words2Nums.pmnode(typeregularcontents #!/gnu/store/cmmrbr6s23fv62zydyd8l8ffynlnylax-perl-5.36.0/bin/perl =head1 NAME Lingua::EN::Words2Nums - convert English text to numbers =cut package Lingua::EN::Words2Nums; use warnings; use strict; require Exporter; our @ISA=qw(Exporter); our @EXPORT=qw(&words2nums); =head1 SYNOPSIS use Lingua::EN::Words2Nums; $num=words2nums("two thousand and one"); $num=words2nums("twenty-second"); $num=words2nums("15 billion, 6 million, and ninteen"); =head1 DESCRIPTION This module converts English text into numbers. It supports both ordinal and cardinal numbers, negative numbers, and very large numbers. The main subroutine, which is exported by default, is words2nums(). This subroutine, when fed a string, will attempt to convert it into a number. If it succeeds, the number will be returned. If it fails, it returns undef. =head1 VARIABLES There are a number of variables that can be used to tweak the behavior of this module. For example, debugging can be be enabled by setting $Lingua::EN::Words2Nums::debug=1 =over 4 =cut # Public global variables. our $debug = 0; our $billion = 10 ** 9; =item $Lingua::EN::Words2Nums::debug Default: 0. If set to a true value, outputs on standard error some useful messages if parsing fails for some reason. =item $Lingua::EN::Words2Nums::billion Default: 10 ** 9. This is the number that will be returned for "one billion". It defaults to the American version; the English will want to set it to 10 ** 12. Setting this number automatically changes all the larger numbers (trillion, quadrillion, etc) to match. =back =head1 NOTES It does not understand decimals or fractions, yet. Scores are supported, eg: "four score and ten". So are dozens. So is a baker's dozen. And a gross. Various mispellings of numbers are understood. While it handles googol correctly, googolplex is too large to fit in perl's standard scalar type, and "inf" will be returned. =cut our %nametosub = ( naught => [ \&num, 0 ], # Cardinal numbers, leaving out the a nought => [ \&num, 0 ], zero => [ \&num, 0 ], # ones that just add "th". one => [ \&num, 1 ], first => [ \&num, 1 ], two => [ \&num, 2 ], second => [ \&num, 2 ], three => [ \&num, 3 ], third => [ \&num, 3 ], four => [ \&num, 4 ], fourth => [ \&num, 4 ], five => [ \&num, 5 ], fifth => [ \&num, 5 ], six => [ \&num, 6 ], seven => [ \&num, 7 ], seven => [ \&num, 7 ], eight => [ \&num, 8 ], eighth => [ \&num, 8 ], nine => [ \&num, 9 ], ninth => [ \&num, 9 ], ten => [ \&num, 10 ], eleven => [ \&num, 11 ], twelve => [ \&num, 12 ], twelfth => [ \&num, 12 ], thirteen => [ \&num, 13 ], fifteen => [ \&num, 15 ], eighteen => [ \&num, 18 ], ninteen => [ \&num, 19 ], # common(?) mispelling teen => [ \&suffix, 10 ], # takes care of the regular teens twenty => [ \&num, 20 ], twentieth => [ \&num, 20 ], thirty => [ \&num, 30 ], thirtieth => [ \&num, 30 ], forty => [ \&num, 40 ], fortieth => [ \&num, 40 ], fourty => [ \&num, 40 ], fourtieth => [ \&num, 40 ], # at least I mispell it like this fifty => [ \&num, 50 ], fiftieth => [ \&num, 50 ], sixty => [ \&num, 60 ], sixtieth => [ \&num, 60 ], seventy => [ \&num, 70 ], seventieth => [ \&num, 70 ], eighty => [ \&num, 80 ], eightieth => [ \&num, 80 ], ninety => [ \&num, 90 ], ninetieth => [ \&num, 90 ], ninty => [ \&num, 90 ], # common mispelling hundred => [ \&prefix, 100 ], thousand => [ \&prefix, 1000 ], million => [ \&prefix, 10 ** 6 ], milion => [ \&prefix, 10 ** 6 ], # common(?) mispelling milliard => [ \&prefix, 10 ** 9 ], billion => [ \&powprefix, 2 ], # These vary depending on country. billiard => [ \&prefix, 10 ** 15 ], trillion => [ \&powprefix, 3 ], trilliard => [ \&prefix, 10 ** 21 ], quadrillion => [ \&powprefix, 4 ], quadrilliard => [ \&prefix, 10 ** 27 ], quintillion => [ \&powprefix, 5 ], quintilliard => [ \&prefix, 10 ** 33 ], sextillion => [ \&powprefix, 6 ], sextilliard => [ \&prefix, 10 ** 39 ], septillion => [ \&powprefix, 7 ], septilliard => [ \&prefix, 10 ** 45 ], octillion => [ \&powprefix, 8 ], octilliard => [ \&prefix, 10 ** 51 ], nonillion => [ \&powprefix, 9 ], nonilliard => [ \&prefix, 10 ** 57 ], decillion => [ \&powprefix, 10 ], decilliard => [ \&prefix, 10 ** 63 ], undecillion => [ \&powprefix, 11 ], undecilliard => [ \&prefix, 10 ** 69 ], duodecillion => [ \&powprefix, 12 ], duodecilliard => [ \&prefix, 10 ** 75 ], tredecillion => [ \&powprefix, 13 ], tredecilliard => [ \&prefix, 10 ** 81 ], quattuordecillion => [ \&powprefix, 14 ], quattuordecilliard => [ \&prefix, 10 ** 87 ], quindecillion => [ \&powprefix, 15 ], quindecilliard => [ \&prefix, 10 ** 93 ], sexdecillion => [ \&powprefix, 16 ], septendecillion => [ \&powprefix, 17 ], octodecillion => [ \&powprefix, 18 ], novemdecillion => [ \&powprefix, 19 ], vigintillion => [ \&powprefix, 20 ], unvigintillion => [ \&powprefix, 21 ], duovigintillion => [ \&powprefix, 22 ], duvigintillion => [ \&powprefix, 22 ], # some use this spelling trevigintillion => [ \&powprefix, 23 ], quattuorvigintillion => [ \&powprefix, 24 ], quinvigintillion => [ \&powprefix, 25 ], sexvigintillion => [ \&powprefix, 26 ], septenvigintillion => [ \&powprefix, 27 ], octovigintillion => [ \&powprefix, 28 ], novemvigintillion => [ \&powprefix, 29 ], trigintillion => [ \&powprefix, 30 ], # This process can be continued indefinitely, but one has to stop # somewhere. -- A Dictionary of Units of Measurement centillion => [ \&powprefix, 100 ], googol => [ \&googol ], googolplex => [ \&googolplex ], negative => [ \&invert ], minus => [ \&invert ], score => [ \&prefix, 20 ], gross => [ \&prefix, 12 * 12 ], dozen => [ \&prefix, 12 ], bakersdozen => [ \&prefix, 13 ], bakerdozen => [ \&prefix, 13 ], eleventyone => [ \&num, 111 ], # This nprogram written on the day eleventyfirst =>[ \&num, 111 ], # FOTR released. s => [ sub {} ], # ignore 's', at the end of a word, # easy pluralization of dozens, etc. es => [ sub {} ], # same for 'es'; for googolplexes, etc. th => [ sub {} ], # ignore 'th', for cardinal nums ); # Note the ordering, so that eg, ninety has a chance to match before nine. my $numregexp = join("|", reverse sort keys %nametosub); $numregexp=qr/($numregexp)/; my ($total, $mult, $oldpre, $newmult, $suffix, $val); sub num ($) { $val = shift; if ($suffix) { $val += $suffix; $suffix = 0; } $total += $val * $mult; $newmult = 0; } sub prefix ($) { my $pre = shift; if ($pre > $oldpre) { # end of a prefix chain $total += $mult if $newmult; # special case for lone "thousand", etc. $mult = 1; } $mult *= $pre; $oldpre = $pre; $newmult = 1; } sub powprefix { my $power = shift; if ($billion == 10 ** 9) { # EN prefix(10 ** (($power + 1) * 3)); } elsif ($billion == 10 ** 12) { # GB prefix(10 ** ($power * 6)); } else { failure("\$billion is set to odd value: $billion"); } } sub suffix ($) { $suffix = shift; } sub invert () { $total *= -1; } sub googol () { prefix(10 ** 100); } sub googolplex () { prefix(10 ** (10 ** 100)); } sub failure ($) { print STDERR shift()."\n" if $debug; return; # undef on failure } sub words2nums ($) { local $_=lc(shift); chomp $_; s/,//; # ignore comma, even if it's in a plain number return $_ if /^[-+]?[.0-9\s]+$/; # short circuit for plain number if (/^[-+0-9.]+$/) { return failure("+ or - not at beginning") if length $_; } s/\b(and|a|of)\b//g; # ignore some common words s/[^A-Za-z0-9.]//g; # ignore spaces and punctuation, except period. return failure("not a number") unless length $_; $total=$oldpre=$suffix=$newmult=0; $mult=1; # Work backwards up the string. while (length $_) { $nametosub{$1}[0]->($nametosub{$1}[1]) while s/$numregexp$//; if (length $_) { if (s/(\d+)(?:st|nd|rd|th)?$//) { num($1); } else { last; } } } return failure("error at $_") if length $_; $total += $mult if $newmult; # special case for lone "thousand", etc. return $total; } =head1 AUTHOR Copyright 2001-2003 Joey Hess This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =cut 1 ))))))entry(namei686-linux-thread-multinode(type directoryentry(nameautonode(type directoryentry(nameLinguanode(type directoryentry(nameENnode(type directoryentry(name Words2Numsnode(type directoryentry(name .packlistnode(typeregularcontents/gnu/store/44xpgiixdc18cjgc5zqc53qg0madmzq9-perl-lingua-en-words2nums-0.18/lib/perl5/site_perl/5.36.0/Lingua/EN/Words2Nums.pm /gnu/store/44xpgiixdc18cjgc5zqc53qg0madmzq9-perl-lingua-en-words2nums-0.18/share/man/man3/Lingua::EN::Words2Nums.3 ))))))))))))))))))))entry(namesharenode(type directoryentry(namemannode(type directoryentry(nameman3node(type directoryentry(nameLingua::EN::Words2Nums.3.zstnode(typeregularcontents(/de>[l-Pjߊ땬#Iۤѽ~/gRS\`cWV(qN]u#ISk~9~j\Ch!ٖYLV^!H, 'НSyI77_m|n(!GMT^èVHм]{t:<>>4Z{ďvq8;J}Ak"_J1\coҝثU!"^'rJx K%9Mun\C*Z/Y)7 xʹr @@Z%WS<Ju~~焄 FFcԌ$)HQ8J XAhfFe}1~b6% 8Ge8YUi E> .(Uwqk8.PdoHHZ)P1< Z*gPnS%ak"!`=r&%h*s!3s_4\,/:=9$5 Y.@lF8&S k"}lB[d*%]z*䄝Q!Juj'*