如何使用 gettext 在 HTML::Template[::Compiled] 中进行国际化？

Question

我目前正在尝试将 Web 项目从自定义 i18n 系统移动到 gettext，但是我需要准备 HTML::Template::Compiled i18n 模板，但还不知道该怎么做。 我的模板存储在单独的文件中，因此我无法使用 Perl 的字符串插值，并且我还想在模板中使用 gettext 典型的 _() 语法。

知道如何正确实施吗？

Answer 1

你可以试试这个：
http: //perlboard.svn.sourceforge.net/viewvc/perlboard/battie/lib/HTML/Template/Compiled/Plugin/Translate.pm?view=markup

我想用它制作一个 CPAN 模块。 希望很快=）
这是一个示例，模块中的注释已过时：

use HTML::Template::Compiled;
use HTML::Template::Compiled::Plugin::Translate;
my $t = <<"EOM";
<%translate id="search %1:s found %2:d videos" count=".items#" args=".search,.items#" %>
EOM

my $map = {
    "search %1:s found %2:d videos" => [
        q/Suche nach "%1:s" hat %2:020d Video gefunden/,
        q/Suche nach "%1:s" hat %2:d Videos gefunden/,
    ],
};
my $plug = HTML::Template::Compiled::Plugin::Translate->new({
    lang => "de",
    map => $map,
});

my $htc = HTML::Template::Compiled->new(
    scalarref => \$t,
    plugin => [$plug],
);
$htc->param(
    search => "search term",
    items => [qw/ result1 result2 /],
);
print $htc->output;

模板语法没有您想要的那么短，并且我不使用 gettext，但也许您喜欢它或者可以从这个示例构建您自己的插件。

问候，
蒂娜