Perlでのゼロパディング
たとえば、4桁固定で4桁に満たない場合はゼロを付加する(ゼロパディング)と言う場合が結構あります。
以下はそんな時に使えるサンプルです。
#!/usr/bin/perl use strict; use warnings; my $aaa; # sprintfを使う $aaa = 1; $aaa = sprintf("%04d",$aaa); print $aaa, "\n"; # 正規表現を使う $aaa = 1; $aaa = "0000" . $aaa; $aaa =~ s/^.*(....$)/$1/; print $aaa, "\n";