Добавить нулевой префикс числа в 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"; 
    }