5

我使用 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 上收到了一些（很少）关于 extra 的帖子^M，但我找不到根本原因的解释，也不是真正的解决方案（只是一些解决方法如何摆脱 extra ^M）。

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

4

3 回答 3

11

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

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

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();
于 2012-02-03T09:25:16.700 回答
0

不幸的是，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

我在https://github.com/abw/Template2/issues/63向 TT 作者报告了这个问题。

我找到了一个简单的解决方法：在 sub Template::_output (in Template.pm) 中，更改

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

到

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

然后在你的主要 perl 脚本集中

$Template::BINMODE = ':raw';

然后你可以使用处理模板

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

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

于 2017-05-26T10:34:50.257 回答
0

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

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

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

于 2018-01-08T02:49:04.800 回答