在Perl中添加数字的零前缀以进行日期转换

Question

我试图添加数字的零前缀。我已经尝试了如下代码，

代码：

use strict;
   use warnings;
   my $day = 11;
   for (my $i=1; $i<=$day ; $i++) {
       if( $i < 10 ) {
            $i = "0$i";
        }
        print "Number of day: $i\n";
    }

输出：

01
002
0003
00004
...
...

但我想要输出如下，

01
02
03
04
...

请提前帮助我。

Answer 1

试试这个：

use strict;
   use warnings;
   my $day = 11;
   for (my $i=1; $i<=$day ; $i++) {
       if( $i < 10 ) {
            $i = sprintf("%02d",$i);
        }
        print "Number of day: $i\n";
    }