Функция выглядит следующим образом:
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;
}
Функция выглядит следующим образом:
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-ое время).
Renotes © 2012 -
Заметки web-разработчиков ·RSS