id:kopug のコードそのままやけど。Template::Filters::LazyLoader使用。 sub fd_make_it_short{ my $s = shift; my $num = shift; return sub { my $var = shift; my $var_utf8 = Encode::decode('utf-8', $var); return length $var_utf8 > $num ? Encode:…