如何移除Perl Template指令后的空白及输出首行换行符？

方案1：模板内精准控制空白 #

在TT指令末尾使用-%]替代%]，可以自动移除指令后方的换行符及空白。修改后的my.tt模板如下：

[% DEFAULT label = 'null' -%]
order: '[% order %]',
name:  '[% name %]',
product:'[% product %]',
label : '[% label %]'

这里的-%]会吃掉DEFAULT指令后的换行，直接消除输出首行的空行。如果需要移除其他指令后的空白，同样给对应指令加上-%]即可（比如[% order -%]会移除变量输出后的尾随空白，按需使用）。

方案2：全局配置空白处理参数 #

初始化Template对象时，通过设置POST_CHOMP或TRIM参数，全局处理模板空白：

my $template = Template->new({
    POST_CHOMP => 1,  # 移除每个TT指令后的换行与尾随空白
    # 可选：TRIM => 1，会移除指令前后所有空白，输出更紧凑
});
open(my $fh, '>:raw', \$report); 
$template->process('my.tt', \%data,$fh) or die $template->error();
print $report;

• POST_CHOMP => 1：针对性处理指令后的换行，刚好解决首行空行问题，同时保留模板中手动输入的格式空白。
• TRIM => 1：更彻底的空白清理，会移除指令前后的所有空白字符，适合需要极简输出的场景，但要注意可能会影响模板中需要保留的自定义空白。

两种方案可以结合使用：全局配置保证基础空白处理，再通过模板内的-%]做局部精准调整，确保输出完全符合预期。

内容的提问来源于stack exchange，提问作者dave