小池啓仁 ヒロヒト応援ブログ By はてな

小池啓仁(コイケヒロヒト)の動画など。

小池啓仁 ヒロヒト応援ブログ By はてな

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";