Oddeleni radu v cislech

[Honza Pazdziora]

On Thu, 6 Jan 2000 22:36:06 +0100, Pavel Kunc <kupa na cmail.cz> wrote:
> Dekuji za pomoc Honzo, funguje to, jen by me zajimalo proc je nazacatku ta
> jednicka?

Protoze je to kratsi

	1 while s/(\d)(\d\d\d)(?!\d)/$1,$2/g;  # perl5

nez kdyz se na konec napisi slozene zavorky ;-)

	while (s/(\d)(\d\d\d)(?!\d)/$1,$2/g) {};  # perl5

-- 
------------------------------------------------------------------------
 Honza Pazdziora | adelton na fi.muni.cz | http://www.fi.muni.cz/~adelton/
   .project: Perl, DBI, Oracle, MySQL, auth. WWW servers, MTB, Spain.
------------------------------------------------------------------------