Làm cách nào để chèn dấu thập phân trước ba số cuối của một số?

Question

Tôi có một số và cần phải thêm một số thập phân vào số đó để định dạng.

Số được đảm bảo trong khoảng từ 1000 đến 999999 (tôi đã đề cập đến các khả năng khác theo những cách khác, đây là điều tôi không thể làm được). Tôi cần phải đặt một số thập phân trước 3 chữ số cuối, ví dụ:

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

Làm cách nào để thực hiện việc này?

Answer 1

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

Đó nói: Hãy khối 3 chữ số (mà phải được neo vào cuối chuỗi) và thay thế bằng một "." theo sau bởi bất cứ điều gì chỉ phù hợp.

Answer 2

Dưới đây là một giải pháp chỉ dành riêng cho những niềm vui của nó:

Trong Perl substr() có thể là một giá trị trái mà có thể giúp đỡ trong trường hợp của bạn.

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

sẽ thêm dấu chấm trước ba số cuối.

Bạn cũng có thể sử dụng phiên bản bốn đối số của substr (như được chỉ trong các ý kiến) để có được hiệu quả tương tự:

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

tôi sẽ hy vọng nó là tao nhã hơn/dễ đọc hơn so với giải pháp regexp, nhưng tôi chắc chắn nó sẽ ném ra bất cứ ai không được sử dụng để substr() được sử dụng như một lvalue.

Answer 3

Và một cách khác cho niềm vui của nó ;-)

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

Answer 4

Golf ai?

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

Answer 5

Tôi có thiếu gì đó ở đây không? Nếu bạn có số từ 999999 đến 1000 phải là số từ 999.999 đến 1.000, bạn sẽ có thể chỉ:

$ num/= 1000.000;

/PF

Answer 6

Làm thế nào về điều này?

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