我使用 TT（perl 模板工具包）获得额外的 CR

Question

我使用 perl v5.10（在 Windows 7 上）+ TT v2.22。当我使用 TT 时，对于每个源行，我在生成的 html 中得到一个额外的 CR ：

源文本（Windows 格式）：

"Some_html" CR LF  

输出文本：

"Some_html" CR  
CR LF

但是，当我将源文件转换为 unix 格式时，并且然后我运行 TT，我得到：
源文本（unix 格式）：

"Some_html" LF   

输出文本：（

"Some_html" CR LF

我使用 notepad++ 显示 CR 和 LF 字符；还可以更改源模板中的 unix <-> windows 格式）。

当我用谷歌搜索这个问题时，我得到了一些关于 Windows 上额外 ^M 的帖子，但我找不到根本原因的解释，也没有真正的解决方案（只是一些解决方法如何获得去掉多余的 ^M）。

虽然不是真正的问题，但我发现它很“不干净”。
是否有一些我应该打开的配置（我回顾了 www.template-toolkit.org /docs/manual/Config.html 但找不到任何东西）？
还有其他解决方案吗？ （除了后期修复输出文件之外）。
谢谢

Answer 1

Template Toolkit 以二进制模式读取模板的源文件，但以文本模式写入。模板中的数据（包含 CR LF）在文本模式输出期间被转换，因此 LF 变为 CR LF。

该问题最简单的解决方案是以二进制模式写入文件（请注意 open 调用的 raw 修饰符）：

my $tt = Template->new;
my $output_file = 'some_file.txt';
open my $out_fh, '>:raw', $output_file    or die "$output_file: $!\n";
$tt->process('template', \%data, $out_fh) or die $tt->error();

Answer 2

不幸的是，bvr 的解决方案不适用于使用 [% FILTER redirect(...) %] 生成的输出。在 Windows 10 上，模板

[% FILTER redirect("bar.txt") %]
This text is for bar.txt.
[% END %]
This text is for foo.txt.

（具有 DOS 样式的 CR-LF 行结尾）通过

#! /bin/perl
use strict;
use warnings;

use Template;

my $tt = Template->new({
                        OUTPUT_PATH => '.',
                        RELATIVE => 1,
                       }) || die "$Template::ERROR\n";

my $srcfile = 'foo.txt.tt';
my $tgtfile = 'foo.txt';

open my $ofh, '>:raw', $tgtfile or die;

$tt->process($srcfile, {}, $ofh, { binmode => ':raw' })
    || die $tt->error . "\n";

创建具有预期 CR-LF 行结尾的输出文件 foo.txt 进行扩展，但创建具有错误 CR-CR-LF 行结尾的 bar.txt：

> od -c bar.txt
0000000  \r  \r  \n   T   h   i   s       t   e   x   t       i   s
0000020   f   o   r       b   a   r   .   t   x   t   .  \r  \r  \n
0000037

我报告将此问题提交给 TT 作者 https://github.com/abw/Template2/issues/63。

我找到了一个简单的解决方案：在子 Template::_output （在 Template.pm 中）中，

my $bm = $options->{ binmode };

更改为

my $bm = $options->{ binmode } // $BINMODE;

在主 Perl 脚本集中

$Template::BINMODE = ':raw';

then然后您可以使用处理模板

$tt->process($srcfile, {}, $tgtfile) || die $tt->error . "\n";

并在主输出和重定向输出中获取 CR-LF 行结尾。

Answer 3

祝你有美好的一天，
我找到了一个非常简单的解决方案：

my $tt = Template->new({
        ...,
        PRE_CHOMP  => 1,
        POST_CHOMP => 1,
        ...
});

此配置将指示模板引擎删除模板文本​​的所有前后 CR LF 。