{{tag> note:perl sprintf}}
---json
{
    "title":"sprintfをテンプレート生成器にしてみる(sprintf)",
    "description":"sprintfをテンプレート生成器にしてみる(sprintf)"
}
---
\\
==== <icon name="md:card-text-outline" color="#0000ff" height="32px" width="32px"/> sprintfをテンプレート生成器にしてみる(sprintf) ====
\\
sprintfがテンプレートエンジンのベースになっている気がしたので、\\

<code perl>
my $v = "%s,%s\n%s,%s\n";                 # テンプレート(文字列)
my @a = ( "(a)", "(b)", undef, "(d)" );   # 値のリスト
my $s = sprintf($v, @a);                  # 生成
printf "[$s]\n";
</code>

結果\\
<code perl>
[(a),(b)
,(d)
]
</code>

でも、少し長文の文字列から右詰め数文字分をあてたいとかする場合、フォーマットの文字数を超えて飛び出るし、左詰めになってしまうし、と思うような表示が実現できない場合があるようで、例えばこんなの。

<code perl>
my $i = 14;
printf " : [%4b]", (~$i);  # (NOT) '1111111111111111111111111111111111111111111111111111111111111010'
</code>

他のサイトでも事前加工してから本処理に渡しているようなアプローチをする方が多く、自分の未熟さもありますが、

<code perl>
my $i = 14;
printf " : [%s]",   substr(sprintf("%b", (~$i)), -4, 4);  # (NOT) '1010'
</code>

みたいに、あてる前にsubstr()とかでトリミングするなどの加工が必要かなって思ったりします。\\

やはりテンプレを使うならモジュールを使えってことなんですかね。\\

~~DISCUSSION~~