NAME
Lingua::EN::Numbers::Years - turn "1984" into "nineteen eighty-four", etc
SYNOPSIS
use Lingua::EN::Numbers::Years;
my $x = 1803;
print "I'm old! I was born in ", year2en($x), "!\n";
prints:
I'm old! I was born in eighteen oh three!
DESCRIPTION
Lingua::EN::Numbers::Years turns numbers that represent years, into English text. It exports one function, year2en
, which takes a scalar value and returns a scalar value. The return value is the English text expressing that year-number; or if what you provided wasn't a number, then it returns undef.
Unless the input is an at-most five-digit integer (with commas allowed), then year2en
just returns num2en(value)
(num2en
is a function provided by Lingua::EN::Numbers), as a reasonable fall-through.
NOTES
This module is necessary because English pronounces year-numbers differently from normal numbers. So the year 1984 was pronounced "nineteen eighty-four", never "one thousand, nine hundred and eighty-four".
This module makes guesses as to how to pronounce year-numbers between ten thousand and a hundred thousand -- so year2num(10191)
returns "ten thousand one ninety-one". But clearly these are not established in English usage. Yet.
Note that year2en
doesn't try to append "BC" or "AD".
SEE ALSO
Lingua::EN::Numbers - more general purpose module for turning numbers into English text.
Lingua::EN::Words2Nums - another general purpose module for converting numbers into English text. I'd recommend using the previous module.
REPOSITORY
https://github.com/neilb/Lingua-EN-Numbers-Years
COPYRIGHT
Copyright (c) 2005, Sean M. Burke, author of the later versions.
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself (perlartistic).
This program is distributed in the hope that it will be useful, but without any warranty; without even the implied warranty of merchantability or fitness for a particular purpose.
(But if you have any problems with this library, I ask that you let me know.)
AUTHOR
Sean M. Burke, sburke@cpan.org