日付フォーマットMACRO。
何故だ。
何故に Template::Plugin::Date は
'h:m:s d-m-y' のフォーマットを基準にしたがるんだぁぅぁっ!
って訳で、そんなフォーマットは無視してしまえ、と
MACRO 使いました。
他にもっと賢いやり方が、きっとあるに違いない…と思いながら。
[% MACRO formatDate(date) PERL %]
my $date = $stash->get('date');
my ($year, $month, $day, $hour, $minute, $second) = split /[^0-9]/, $date;
my $formatDate = sprintf "'%02d/%02d/%02d %02d:%02d", $year, $month, $day, $hour, $minute;
print $formatDate;
[% END %]
で、こいつをテンプレート内で INCLUDE してですな、
[% INCLUDE 'formatDate.tpl' %]
[% formatDate('2006-03-06 12:34:56') %]
なんてやると
'06/03/06 12:34
と表示してくれる次第。
って、正直引数の持たせ方に、疑問を感じてるのだけど。
こんなんであってるのかしら?