Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: Общие вопросы > Вывод чисел в формате 0,00

Автор: *eug* 1.2.2004, 19:20

Мне необходимо выводить два знака после запятой независимо от того целое число или нет, подскажите как это обеспечить?

Автор: korob2001 1.2.2004, 22:53

Код



#!/usr/bin/perl -w
use strict;
my $num = 254.14154;
printf("%.2f", $num);

Если отформатированное число нужно сохранить в переменной, то нужно использовать sprintf. Например:

Код


#!/usr/bin/perl -w
use strict;
my $num = 254.14154;
my $res = sprintf("%.2f", $num);
print $res;

Автор: *eug* 4.2.2004, 10:23

Вот спасибочки!!!!

Автор: HalkaR 8.2.2004, 01:50

Теоретически можно без sprintf

Код

#!/usr/bin/perl -w
use strict;
my $num = 254.14154;
my $res = (int($num*100))/100;
print $res;

Автор: korob2001 8.2.2004, 04:02

Цитата

Теоретически можно без sprintf

*eug* хочет что бы прога выводила два знака после запятой не зависимо от того, целое число или нет.
Нижеуказанный код не выполняет поставленной задачи:

Код

 
#!/usr/bin/perl -w
use strict;
my $num = 254;  # Целое число
my $res = (int($num*100))/100;
print $res; # Получаем 254, а не 254.00