Некрасиво :( (regexp)

Bitmag 26.12.2011 15:35

Надо цену показывать красиво

25350240.00 => 25,350,240.00 USD

Вот написал.

@formatprice[p][i]
^if(def $p){
$i(1)
$result[^p.match[^^(\d|\d\d|\d\d\d)(\d\d\d)?(\d\d\d)?(\d\d\d)?(\d\d\d)?(\.)?(\d\d)?^$][]{^while(def $match.$i){$match.$i^i.inc[]}[,]^i.inc(3).$match.$i}]
}

Работает, но жутко некрасиво... Да еще и с загадка, почему последнее (\.)(\d\d) в цикле не находится - приходится вручную: ^i.inc(3).$match.$i показывать

Кому не лень регексп красивый написать?

---