perl - 使用 Text::Template 输出“{{$NEXT}}”

Question

Dist::Zilla 的 NextRelease 插件{{$NEXT}}在 Changes 文件中查找以放置发布日期时间信息。但是，我无法使用我的 profile.ini 生成它。这是我所拥有的：

[GenerateFile / Generate-Changes ]
filename    = Changes
is_template = 1
content = Revision history for {{$dist->name}}
content =
;todo: how can we get this to print correctly with a template?
content = {{$NEXT}}
content =   initial release

{{$dist->name}}正确替换为我的发行版名称，但 {{$NEXT}} 原样替换为任何内容（因为它没有被转义并且没有 $NEXT 变量）。我尝试了不同的斜线组合来转义大括号，但在生成dzil new. 我怎样才能正确地转义这个字符串，以便在dzil处理它之后Text::Template输出{{$NEXT}}？

Answer 1

在内容中，{{$NEXT}}被解释为模板块，并且正如您所说，想要将自己填充为缺少的内容$NEXT。

相反，请尝试：

content = {{'{{$NEXT}}'}}

示例程序：

use 5.14.0;
use Text::Template 'fill_in_string';
my $result = fill_in_string(
  q<{{'{{$NEXT}}'}}>,
  DELIMITERS => [ '{{', '}}' ],
  BROKEN => sub { die },
);

say $result;