Convert::Number::Greek - Convert between Arabic and Greek numerals

Convert-Number-Greek documentation Contained in the Convert-Number-Greek distribution.

Index

Code Index:

NAME

Top

Convert::Number::Greek - Convert between Arabic and Greek numerals

VERSION

Top

Version 0.02

SYNOPSIS

Top

  use Convert::Number::Greek qw'num2greek greek2num';

  $greek_number = num2greek 1996;
  # $greek_number now contains
  # "\x{375}\x{3b1}\x{3e1}\x{3df}\x{3db}\x{374}"

  $number = greek2num "\x{3b5}\x{3c3}\x{3c4}\x{3b6}'";
  # $number now contains 567

DESCRIPTION

Top

This module provides subroutines for converting between Arabic and Greek numbers.

FUNCTIONS

Top

num2greek ( NUMBER, { OPTIONS } )

num2greek converts an Arabic numeral to a Greek numeral in the form of a Unicode string the syntax is as follows:

NUMBER is the number to convert. It should be a string of digits, nothing more (see BUGS, below). OPTIONS (optional) is a reference to a hash of boolean options. The options available are as follows:

 Option Name    Default Value   Description
 upper          0               Use uppercase Greek letters
 uc             0                "      "       "      "
 stigma         1               Use the stigma for 6 as opposed to
                                sigma followed by tau
 arch_koppa     0               Use the archaic koppa instead of
                                the modern one
 numbersign     1               Append a Greek number sign (U+0374)
                                to the resulting string

When you specify options, undef is treated as false, so

    num2greek $some_number, { uc => 1, stigma }

actually means

    num2greek $some_number, { uc => 1, stigma => 0 }
greek2num ( STRING )

The greek2num function parses a Greek numbers and returns the Arabic equivalent.

STRING is a string consisting of a Greek number. Anything following the number will be ignored, but will raise a warning if use warnings 'numeric' is on (unless it's just whitespace).

Currently no options are available.

EXPORTS

Top

None by default, but you get num2greek and greek2num if you ask for them (politely).

DIAGNOSTICS

Top

The greek2num function will trigger a "non-numeric" warning if you use warnings 'numeric'.

COMPATIBILITY

Top

This module requires perl 5.8.0 or later, though the earliest version I have tested it with is 5.8.1.

BUGS

Top

The num2greek function does not yet have any error-checking mechanism in place. The input should be a string of Arabic digits, or at least a value that stringifies to such. Using an argument that does not fit this description may produce nonsensical results.

AUTHOR

Top

Father Chrysostomos <sprout @cpan.org>

Convert-Number-Greek documentation Contained in the Convert-Number-Greek distribution. 
package Convert::Number::Greek;

require 5.008;
use strict;   # :-(
use warnings; # :-(
use POSIX 'floor';
use utf8;
require Exporter;




use vars qw[
	@ISA
	@EXPORT_OK
	$VERSION
	@greek_digits
	@greek_digits_uc
];

$VERSION   = '0.02';
@ISA       = 'Exporter';
@EXPORT_OK = qw'num2greek greek2num';



   


@greek_digits = (
	['', qw[α β γ δ ε ϛ ζ η θ]],
	['', qw[ι κ λ μ ν ξ ο π ϟ]],
	['', qw[ρ σ τ υ φ χ ψ ω ϡ]],
);
@greek_digits_uc = (
	['', qw[Α Β Γ Δ Ε Ϛ Ζ Η Θ]],
	['', qw[Ι Κ Λ Μ Ν Ξ Ο Π Ϟ]],
	['', qw[Ρ Σ Τ Υ Φ Χ Ψ Ω Ϡ]],
);

sub num2greek ($;$) {
	my ($n, $options) = @_;
	my $ret;

	$options ||= {};

	my @digits = $$options{uc} || $$options{upper} ? @greek_digits_uc : @greek_digits;
	
	exists $$options{stigma} and !$$options{stigma} and
		local $digits[0][6] = $digits[0][6] eq 'ϛ' ? 'στ' : 'ΣΤ';
	$$options{arch_koppa} and
		local $digits[1][9] = $digits[1][9] eq 'ϟ' ? 'ϙ' : 'Ϙ';
	
	for my $place ( reverse 0 .. length($n) - 1 ) {
		my $digit = substr $n, length($n) - $place - 1, 1;
		
		$ret .= '͵' x floor($place / 3) . # thousands indicator
			$digits[$place % 3][$digit];
			
	}
	$ret .= 'Í´' unless exists $$options{numbersign} and !$$options{numbersign};
	$ret;
}


our %greek_digit_2_num = qw(
	α	1
	β	2
	γ	3
	δ	4
	ε	5
	Ï›	6
	ζ	7
	η	8
	θ	9
	ι	10
	κ	20
	λ	30
	μ	40
	ν	50
	ξ	60
	ο	70
	π	80
	ÏŸ	90
	ρ	100
	σ	200
	Ï„	300
	Ï…	400
	φ	500
	χ	600
	ψ	700
	ω	800
	Ï¡	900
	Α	1
	Î’	2
	Γ	3
	Δ	4
	Ε	5
	Ïš	6
	Ζ	7
	Η	8
	Θ	9
	Ι	10
	Κ	20
	Λ	30
	Μ	40
	Ν	50
	Ξ	60
	Ο	70
	Π	80
	Ïž	90
	Ρ	100
	Σ	200
	Τ	300
	Υ	400
	Φ	500
	Χ	600
	Ψ	700
	Ω	800
	Ï 	900
	Ï™	90
	Ϙ	90
	á¾³	1000
	ῃ	8000
	ῳ	800000
	á¾¼	1000
	ῌ	8000
	ῼ	800000
);

sub greek2num ($;$) {
	my($n,$ret,$thousands,$digit) = $_[0];

	$n =~ s/^\s+//;

	while (length $n) {
		$thousands = $n =~ s/^([͵,]+)// && length $1;
		if($n =~ s/^στ//i) {
			$digit = 6;
		}
		elsif(exists $greek_digit_2_num{substr $n,0,1}) {
			$digit = $greek_digit_2_num{substr $n,0,1,''};
		}
		else {
			$n =~ s/^['’ʹ´΄]?\s*//; # straight quote, smart
			length $n or last;      # quote,  number  sign,
			warnings::warnif(       # oxia, tonos
			    numeric =>
			    qq/Argument "$_[0]" isn't numeric in greek2num/
			);
			last;
		}
		$ret += $digit * 1000**$thousands;
	}
	$ret;
}