[Perl] 数字の左にゼロを加える方法（ゼロ埋め、ゼロパディング）

2008/03/16

$a = 1;
$b = sprintf("%03d",$a);
print $b;　 #  →  "001"と出力

出力する桁数をパラメータで動的に指定したい場合は、

$keta = 3;  # 桁数を指定
$a = 1;
$b = sprintf("%0".$keta."d", $a);
print $b;   # →  "001"と出力

自作関数でpadd_zero()みたいなのを作ってもいいのですが、
使い捨てスクリプトを急いで書く場合は、上記のやり方が便利です。

カテゴリ: Perl