如何使用 sprintf 在 Perl 的右侧添加填充零？

Question

我想使用sprintf.在给定数字的右侧填充零。

示例：如果数字是0715那么我想在右侧填充零以创建一个新的六位数：

Input-->0715
Output-->071500

Answer 1

您不能这样做，sprintf因为如果您这样做，那么您将更改显示的未格式化的数字的值\xe2\x80\x94。如果您将号码视为数值，则也无法执行此操作。

\n\n

您需要测试字符串形式的数字长度，并附加零：

\n\n

my $num_str = "0715";\nmy $length  = 6 - length($num_str);\nprint $num_str , "0" x $length;\n

\n