■

perl TT chunk

TTのchunkってメソッド。

use strict;
use warnings;

use Template;

my $data = join("",<DATA>);
my $template = Template->new({});
$template->process(
    \$data,
    {
        hoge => 123456,
    }
) || die;

__END__
[%- FOR v IN hoge.chunk(2) %]
    [% v %]
[%- END -%]

結果こんなん

12
34
56

http://search.cpan.org/~abw/Template-Toolkit/lib/Template/Manual/VMethods.pod