Dotaz

[Honza Pazdziora]

On Thu, Jun 27, 2002 at 02:03:47AM +0200, Milan Sorm wrote:
> # Zdravim,
> # potreboval bych poradit. Mam ciselnou promennou a potreboval bych u teto 
> # promenne oddelovat tisice.
> 
> neco jako:
> 
> $a = "1000000";  
> $b = join "",reverse split //,$a;  
> $b =~ s/(...)/$1 /g; 
> $b = join "",reverse split //,$b; 
> 
> print $b;
> 
> by nevyhovelo ?

No, kdyztak uz

	s/(?=(...)+(\.|,|$))/ /g;

ne? Na muj vkus tam mas prilis mnoho funkci a vubec je to nejake
dlouhe. Ale mozna jsem jenom deformovan z perl golfu.

-- 
------------------------------------------------------------------------
 Honza Pazdziora | adelton na fi.muni.cz | http://www.fi.muni.cz/~adelton/
      ... all of these signs saying sorry but we're closed ...
------------------------------------------------------------------------