Perlのゼロパディング

ころっと忘れていたので、備忘録を兼ねてメモ。 ^*01 と言うか、ネタの用意が全く追い付いていない。

Perl で桁数を固定した数値を出力したい場合、sprintf関数を使うと簡単。

for ( my $i = 1; $i < 13; $i++ ){ 
    print sprintf("%02d", $i).", ";
}
# 01, 02, 03, 04, 05, 06, 07, 08, 09, 10, 11, 12