регулярные выражения ?!

[Gandalf]

#########################################################################################
# formating numbers like"12323123.9800"
# into "12,323,123.98"
#########################################################################################
		$ln=length($price55);			# length of our number
		$ln-=2;					# length of the number waht we need
		$price55=substr $price55,0,$ln;		# cutting string (String,position to start from,number of chars to display
		$price55=reverse $price55;		# reverse for regular expr
		$price55=~s/(\d{3})/$1,/gi;		# regular (finding 3 numbers and replacing with same 3 nums + "," at the end of them
		$price55=reverse $price55;		# reverse back , cause we are done

Всем привет,
беру номер ( денежную еденицу) из mdb даёт она мне число в формате"2323123.9800" , надо обрезать 2 последних нуля и поставить "," после каждых 3 чисел если за ними идёт четвёртое ( код выше делает почти всё из этого ) как сделать проверку если за 3-я цифрами идёт ещё одна ???!
а то получаеться из "500.8900" ->",500.89"

[Fouly]

Напиши так:
$price55=~s/(\d{3})(?=\d)/$1,/g;

P.S.
Модификатор 'i' тут незачем.

[Gandalf]

спасибо

Можно сделать код ещё короче:

$price55 = sprintf "%.2f", $price55;
$price55=reverse $price55;
$price55 =~ s/(\d{3})(?=\d)/$1,/g; 
$price55=reverse $price55;