(fwd) Re: Разделить тысячи точками...
Andrey Gerzhov (kittle@freeland.alex-ua.com)
Sun, 1 Aug 1999 22:36:49 +0300 (EEST)
-- forwarded message --
Path: freeland.alex-ua.com!routki.ki.yurteh.net!carrier.kiev.ua!srcc!Gamma.RU!ddt.demos.su!not-for-mail
From: "Igor Sysoev" <igor@nitek.ru>
Newsgroups: fido7.ru.perl
Subject: Re: Разделить тысячи точками...
Date: 30 Jul 1999 12:31:32 +0400
Organization: NITEK Corporation
Lines: 19
Sender: fido7@ddt.demos.su
Approved: <gateway@fido7.ru>
Message-ID: <7nrnqe$ppt$1@gate.nitek.ru>
References: <933166656@f93.n450.z2.ftn> <933260262@p4.f14.n5100.z2.ftn>
NNTP-Posting-Host: ddt.demos.su
Mime-Version: 1.0
Content-Type: text/plain;
charset="koi8-r"
Content-Transfer-Encoding: 8bit
X-Trace: ddt.demos.su 933323495 747 194.87.13.37 (30 Jul 1999 08:31:35 GMT)
X-Complaints-To: gatekeeper@fido7.ru
NNTP-Posting-Date: 30 Jul 1999 08:31:35 GMT
X-BeforeModerator-Path: not-for-mail
X-BeforeModerator-NNTP-Posting-Host: igor.nitek.ru
X-Newsreader: Microsoft Outlook Express 4.72.3612.1700
X-MIMEOLE: Produced By Microsoft MimeOLE V4.72.3612.1700
Xref: freeland.alex-ua.com fido7.ru.perl:2613
alexander smishlajev wrote in message <933260262@p4.f14.n5100.z2.ftn>...
> AS> Есть число. Допустим 1234567890. ужно его привести в формат:
> AS> 1.234.567.890 то есть после каждой тысячи поставить ".". Как это можно
> AS> сделать так, чтобы это работало с любым числом (12,12345 и т.п.)?
>
>добавлю свои две копейки...
>
>scalar reverse( join( '.', reverse( 1234567890) =~ m/\d{1,3}/g))
Кстати, вопреки моим ожиданиям, это оказался самый быстрый способ.
Делает все остальные примерно в 3.5 раза.
С уважением,
Игорь Сысоев
http://www.nitek.ru/~igor/
-- end of forwarded message --
--
С тем, что не помешает никогда,
Kittle