RENOTES

Функция выглядит следующим образом:

sub formating_money {
	my $num = shift;

	my $rounded = $num;
	if ($num =~ m|\.|) {
		$rounded = sprintf("%.2f", $num);
	}

	while ($rounded =~ s/^(-?\d+)(\d\d\d)/$1\n$2/){};

	return $rounded;
}

Полезная подборка сервисов, которая может понадобиться web-мастеру в повседневной работе.

Не только следует форматировать программный код, но и SQL-запросы к базе данных. В отформатированный запросе гораздо быстрее и легче понять, что и откуда берется, не только другим программистам, но и, собственно вам самим (через N-ое время).