| Как используя Perl разбить число на триады |
[исправить] |
$num = 100000000000000;
$num =~ s/(\d{1,3}(?=(?:\d\d\d)+(?!\d)))/$1,/g;
|
| |
|
|
|
| Раздел: Корень / Программисту и web-разработчику / Perl / Полезные подпрограммы на Perl / Работа с сетью и IP адресами на Perl |