|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Yaroslav Kulikov 2:5036/32.13 30 Sep 2000 13:12:51
To : Alexander Bolotnov
Subject : Re: только не подсказывайте... :)
--------------------------------------------------------------------------------
_*ЯЯЯЯЯЯ*_
Итак, я решил ответить на письмо, датированное /*Вторник 12 Сентября 2000*/,
/*11:04*/,
в котором /*Alexander Bolotnov*/ просвещал /*All*/ по поводу "только не
подсказывайте... :)"
AB> надо мне рабить число, к примеру 35778598923462003 по 3 чтобы было
<проскипано>
AB> $num =~s/(.{3})/$1\./g; но оно ставит точки, начиная сначала, что
AB> не есть круто, подскажите куда копать, только очень прошу -
AB> ГОТОВОГО РЕШЕHИЯ HЕ ГОВОРИТЕ, ато не интересно и не обучабельно.
Думаю, что можно алгоритм предложить: а как его реализовать - это посмотри в
документации, например, в "Perl:библиотека программиста" от издательства
Питер(оригинальное название: "Perl:Cookbook" издательство O'Reily) глава про
операции над строками.
1) инвертируй строку
2) расставь точки
3) инвертируй ее снова.
Выглядит так: было - 12345678
1) 87654321
2) 876.543.21
3) 12.345.678
то есть получили искомый результат.
Пусть удача не отвернется от Вас. /ЯрикЪ-МанЪярик/
... Честность хорошая вещь, когда все вокруг честные, а ты один жулик.
--- И вообще я из WinAMP'а вышел давно.
* Origin: Hародное достояние изъятию не подлежит (2:5036/32.13)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Re: только не подсказывайте... :)