Как я могу вставить десятичную точку перед последними тремя цифрами числа?

Question

У меня есть номер и мне нужно добавить к нему десятичную дробь для форматирования.

Число гарантированно будет между 1000 и 999999 (я рассмотрел другие возможности другими способами, это то, что я не могу понять). Мне нужно поставить десятичную дробь перед последними 3 цифрами, например:

1000   -> 1.000
23513  -> 23.513
999999 -> 999.999

Как я могу это сделать?

Answer 1

И еще один способ подшутить над этим; -)

my $num_3dec = sprintf '%.3f', $num / 1000;

Answer 2

Вот еще одно решение для удовольствия:

В Perl substr () может быть lvalue, который может помочь в вашем случае.

substr ($num , -3 , 0) = '.';

добавит точку перед последними тремя цифрами.

Вы также можете использовать версию substr с четырьмя аргументами (как указано в комментариях), чтобы получить тот же эффект:

substr( $num, -3, 0, '.' );

Я надеюсь, что это более элегантно / читабельно, чем решение регулярных выражений, но я уверен, что оно отбросит любого, кто не привык к substr (), используемому в качестве lvalue.

Answer 3

$num =~ s/(\d{3})$/.$1/

Это говорит: возьмите блок из 3 цифр (который должен быть закреплен в конце строки) и замените их на «.», за которым следует то, что только что было найдено.

Answer 4

Я что-то здесь упускаю? Если у вас число от 999999 до 1000, которое должно представлять число от 999,999 до 1000, вы можете просто:

$ num / = 1000.000;

/ PF

Answer 5

Кто-нибудь в гольф?

substr $num,-3,0,'.';

Answer 6

Как насчет этого?

$num = reverse $num;
$num =~ s/\d{3}(?=\d)/$&./g;
$num = reverse $num;