Perl序列的数字与前导零

Question

是否有一些简单的方法（没有sprintf，当然还有printf）来获取Perl中的(001, 002, ... 100)列表？ 在bash中它就像seq -w 1 100。 Perl怎么样？

Answer 1

你的意思是这样吗？

for ('001'..'100') {
    print "$_\n";
}

..在一个范围内，返回一个按值计算的值列表，从左侧值到右侧值。

有关如何使用范围的更多详情，请参阅： Perldoc range operator和this link

Answer 2

Printf就是为这样的问题而创建的。使用它可以帮助您更快地得到想要的答案。

foreach my $number ( 1 .. 100 ) {
     printf "%03d\n", $number;
}

%是“开始格式序列” 0是“领先的零” 3是“最少三位数” d是“将参数视为数字（整数）”