ÖZET

   use Lingua::TR::Numbers qw(num2tr num2tr_ordinal);
   
   my $x = 234;
   my $y = 54;
   print "Bugün yapman gereken ", num2tr($x), " tane işin var!\n";
   print "Yarın annemin ", num2tr_ordinal($y), " yaşgününü kutlayacağız.\n";

çıktısı:

   Bugün yapman gereken iki yüz otuz dört tane işin var!
   Yarın annemin elli dördüncü yaşgününü kutlayacağız.

TANIM

Lingua::TR::Numbers, sayıları türkçe okunuşlarına çevirir. (İstenmesi halinde) adboşluğunuza iki adet fonksiyon ihraceder: num2tr ve num2tr_ordinal. Bu fonksiyonlardan dönen değer; belirtilen sayının türkçe okunuşu veya belirtilen değerin sayı olmaması durumunda undef tir.

Modül, "12" veya "-3" gibi tam sayılar ile "53.19" gibi gerçel sayılar üzerinde çalışabilir.

Modülü, üstel gösterimi de anlayabilir. "4E9" değeri, "dört çarpı 10 üzeri dokuz" değerine dönüştürülecektir. Ayrıca, "INF", "-INF", "NaN" değerleride sırasıyla: "sonsuz", "negatif sonsuz" and "sayı-değil" değerlerine dönüştürülür.

Girilen verideki herhangi bir virgül işareti yok sayılacaktır.

FONKSİYONLAR

Modülün fonksiyonlarını teker teker veya özel :all etiketi ile, ithal edebilirsiniz:

   use Lingua::TR::Numbers qw(num2tr num2tr_ordinal);

veya

   use Lingua::TR::Numbers qw(:all);

num2tr

Verilen sayıyı Türkçe yazıya dönüştürür.

num2tr_ordinal

num2tr ile benzerdir, ancak sayıyı sıralı olarak dönüştürür.

SINIRLAMA

Modülü desteklediği en yüksek sayı değeri 999 desilyondur (999*10**33). Bundan daha yüksek haneler, sık kullanılmadığı için, modüle dahil edilmemiştir.

DİĞER BELGELER

Lingua::EN::Numbers. http://www.radikal.com.tr/haber.php?haberno=66427 http://en.wikipedia.org/wiki/Names_of_large_numbers

UYARI

Bu modülün kaynak dosyası UTF-8 olarak kodlanmıştır (BOM olmadan) ve mümkün olduğu taktirde, dönen değerler UTF-8 kodludur.

Şu an için modül, 5.6 sürümünden daha yaşlı Perl sürümleriyle çalışmamaktadır.

YAZAR

Burak Gürsoy, <burak@cpan.org>

TELİF

Bu modül, Sean M. Burke' ün Lingua::EN::Numbers modülü üzerine inşa edilmiştir, ve ilgili modülün değiştirilmiş kod parçacıklarını içermektedir.

LİSANS

Bu kütüphane ücretsiz bir yazılımdır; Perl sürüm 5.8.8 veya istediğiniz taktirde, daha yüksek bir Perl 5 sürümünün lisansına bağlı olarak; Perl ile aynı lisans altında tekrar dağıtabilir ve/veya değiştirebilirsiniz.

CPAN RT