Dotaz

[David Olszyński]

Milan Sorm wrote:

> Mon, Jun 24, 2002 ve 11:32:12AM +0200 Igor Bujna napsal(a):
> # Zdravim,
> # potreboval bych poradit. Mam ciselnou promennou a potreboval bych u teto
> # promenne oddelovat tisice.
> # Nevite jak?
> # Dik
> # 
> 
> neco jako:
> 
> $a = "1000000";
> $b = join "",reverse split //,$a;
> $b =~ s/(...)/$1 /g;
> $b = join "",reverse split //,$b;
> 
> print $b;

A nebo ponekud primocareji takto:

$_ = "1000000";
while (s/(?<=\d)(...)( |\z)/ $1/) {1;}
print;

Tento postup navic neudela zbytecnou mezeru v pripade cisla s poctem cifer 
delitelnym tremi.

hisaak