www.Litecode.ru – Сборник рецептов для создания сайтов

Как в perl разбить число по разрядам

ГлавнаяPerl → Как в perl разбить число по разрядам

Это сделать очень просто, с помощью регулярки. А еще лучше обвернуть в функцию, и тогда можно управлять длинной разряда. Например вот так:

sub dig_split {
	my $string = shift || return;
	my $length = shift || 3;
	my $sep = shift || ' ';
	$string  =~ s/(\d{1,$length}(?=(?:\d{$length})+(?!\d)))/$1$sep/g;
	return $string
}

Если нужно применить уникальный разделитель, это то же не проблема (по умолчанию пробел).