perl - 如何创建数字标尺和均匀间隔的数字宽度标记

Question

我是 Perl 新手。一个练习，我要创建一个数字标尺，从中我将数据列的大小设置为 20 个字符宽度，这个练习被证明有点难以完成。到目前为止，我有，

printf “%10d” x 5, (1..6);

@ruler = (1..10) x 7;
Print @ruler, “\n”;

它应该看起来像，

1         2         3         4
1234567890123456789012345678901234567890

我得到的第一行数字是一个错误，‘Redundant argument in printf at <script.pl> line #;底行产生从 1 到 10 的数字，就像范围运算符应该的那样，但我希望它产生 1 到 9，最后是零。我确实想过从0开始范围，但我还没有想出如何删除第一个索引并且只删除第一个索引。

非常感谢您对这两个问题的指导。

Answer 1

警告是因为您将 6 个数字传递给 printf，但格式只需要 5 个。

---

对我来说，

1         2         3         4
1234567890123456789012345678901234567890

读作

11, 12, 13, ..., 19, 10, 21, 22, 23, ...

为什么以11开头？为什么 10 在 19 和 21 之间？

以下更有意义:

          1         2         3         4
01234567890123456789012345678901234567890      0-based

和

         1         2         3         4
1234567890123456789012345678901234567890       1-based

---

我不会直接给出解决方案。

• 如果您想要数字 1 到 9 和 0，那就是 1..9, 0。
• %10d 将在左侧添加填充。 %-10d 将在右侧添加填充。
• 没有人说你不能用不重复的东西作为输出的前缀，比如零或空格。