|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Nikolay Pichtin 2:5056/30 28 Jun 2001 09:02:54
To : Andrew Ustinchik
Subject : Re: Числа прописью
--------------------------------------------------------------------------------
V>> 121, как "сто двадцать один". Если кому известен модуль или хотя
V>> бы методика, подбросьте ссылку или совет, буду очень признателен.
AU> искал как-то, но пришлось самому писать, т.к. склонять еще надо было под
AU> слово "рубль(ей,я)". вот, если надыть.... не претендуя на оригинальность -
AU> работает. принимаются заметки о багах. подключается модулем.
>> === Здесь начался propis.pm ===
AU> package Propis;
[Skip]
AU> undef my $t; undef my $e;
AU> if (($n>99) && ($n<1000)) {$e = int($n/100); $t .= "$s[$e-1] "; $n -=
AU> if (($n>$e*100;};
AU> if (($n>20) && ($n<100)) {$e = int($n/10); $t .= "$d[$e-1] "; $n -=
AU> if (($n>$e*10;};
AU> if ((!$n==0) && ($n<21)) {$t .= "$o[$n-1] "};
[Skip]
Здесь выдает ошибки.
Сам будешь править или как? :-)))
-- Hиколай.
* Кто тяжело работает тот тяжело отдыхает. (От Фоменко)
ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД
---
* Origin: Если это глупо, но работает, - значит это не глупо. (2:5056/30)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
