File Coverage

blib/lib/Lingua/PT/Ords2Nums.pm

Criterion	Covered	Total	%
statement	23	23	100.0
branch			n/a
condition	2	2	100.0
subroutine	5	5	100.0
pod	1	1	100.0
total	31	31	100.0

package Lingua::PT::Ords2Nums;

use 5.006;
use strict;
use warnings;

use Lingua::PT::Words2Nums qw/word2num/;

require Exporter;

our @ISA = qw(Exporter);

our %EXPORT_TAGS = ( 'all' => [ qw(
	ord2num
) ] );

our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );

our @EXPORT = qw(
);

our $VERSION = '0.08';

my %values = (
    'bilionésimo'	=> 1000000000,
    'milionésimo'	=> 1000000,
    'milésimo'		=> 1000,

    'nongentésimo'	=> 900,
    'octigentésimo'	=> 800,
    'septigentésimo'	=> 700,
    'seiscentésimo'	=> 600,
    'quingentésimo'	=> 500,
    'quadrigentésimo'	=> 400,
    'tricentésimo'	=> 300,
    'ducentésimo'	=> 200,
    'centésimo' 	=> 100,

    'nonagésimo'	=> 90,
    'octogésimo' 	=> 80,
    'septuagésimo' 	=> 70,
    'sexagésimo' 	=> 60,
    'quinquagésimo' 	=> 50,
    'quadragésimo' 	=> 40,
    'trigésimo' 	=> 30,
    'vigésimo' 		=> 20,
    'décimo' 		=> 10,

    'nono'		=> 9,
    'oitavo'		=> 8,
    'sétimo'		=> 7,
    'sexto'		=> 6,
    'quinto'		=> 5,
    'quarto'		=> 4,
    'terceiro'		=> 3,
    'segundo'		=> 2,
    'primeiro'		=> 1,
);

# Order of application is important, but hashes are unsorted.
# So we need to store the order of the keys in an array.
my @key_sorted_order = (
    'bilionésimo',#	=> 1000000000,
    'milionésimo',#	=> 1000000,
    'milésimo',#		=> 1000,

    'nongentésimo',#	=> 900,
    'octigentésimo',#	=> 800,
    'septigentésimo',#	=> 700,
    'seiscentésimo',#	=> 600,
    'quingentésimo',#	=> 500,
    'quadrigentésimo',#	=> 400,
    'tricentésimo',#	=> 300,
    'ducentésimo',#	=> 200,
    'centésimo',# 	=> 100,

    'nonagésimo',#	=> 90,
    'octogésimo',# 	=> 80,
    'septuagésimo',# 	=> 70,
    'sexagésimo',# 	=> 60,
    'quinquagésimo',# 	=> 50,
    'quadragésimo',# 	=> 40,
    'trigésimo',# 	=> 30,
    'vigésimo',# 		=> 20,
    'décimo',# 		=> 10,

    'nono',#		=> 9,
    'oitavo',#		=> 8,
    'sétimo',#		=> 7,
    'sexto',#		=> 6,
    'quinto',#		=> 5,
    'quarto',#		=> 4,
    'terceiro',#		=> 3,
    'segundo',#		=> 2,
    'primeiro',#		=> 1,
);


=head1 NAME

=encoding latin1

Lingua::PT::Ords2Nums - Converts Portuguese ordinals to numbers

=head1 SYNOPSIS

  use Lingua::PT::Ords2Nums qw/ord2num/;

  $num = word2num('décimo primeiro')   # 11

=head1 DESCRIPTION

Converts Portuguese ordinals to numbers. Works up to 999.999.999.999
('novecentos e noventa e nove bilionésimos novecentos e noventa e nove
milionésimos novecentos e noventa e nove milésimos nongentésimo nonagésimo
nono').

=cut

=head2 ord2num

Turns an ordinal number into a regular number (decimal).

  $num = word2num('segundo')
  # $num now holds 2

=cut

sub ord2num {
  $_ = shift || return undef;
  my $result = 0;

  s/(.*)bilionésimos/$result += (word2num($1) * 1000000000)/e;
  s/(.*)milionésimos/$result += (word2num($1) * 1000000)/e;
  s/(.*)milésimos/$result += (word2num($1) * 1000)/e;

  for my $value ( @key_sorted_order ) {
    s/$value/$result += $values{$value}/e;
  }

  $result;
}

1;
__END__