使用 gettext 和 Locale::TextDomain 在 Perl 中进行本地化，如果 Locale::TextDomain 不可用，则进行回退

Question

“关于 Perl 中的 i18n 状态 " 2009 年 4 月 26 日的博文建议使用 libintl-perl 发行版中的 Locale::TextDomain 模块进行 l10n / Perl 中的 i18n。此外，无论如何我都必须使用 gettext，并且 Locale::Messages / Locale::TextDomain 中的 gettext 支持比 区域设置::Maketext。

“15.5.18 Perl”小节GNU gettext 手册中的 href="http://www.gnu.org/software/gettext/manual/gettext.html#Programming-Languages" rel="noreferrer">15 种其他编程语言" 说：

可移植性

libintl-perl 包与平台无关，但不是 Perl 核心的一部分。如果目标系统上未安装该软件包，程序员负责提供所需功能的虚拟实现。

但是 examples/hello-perl（一个使用较低级别的 Locale::Messages，一个使用较高级别的 Locale::TextDomain）包括检测是否安装了软件包在目标系统上，如果不是，则提供虚拟实现。

使事情变得复杂的事情（关于检测软件包是否安装）是 Locale::TextDomain 联机帮助页的以下片段：

概要

use Locale::TextDomain ('my-package', @locale_dirs);

使用 Locale::TextDomain qw (my-package);

使用

重要的是要记住，您使用“概要”部分中指定的 Locale::TextDomain(3)，这意味着您必须使用它，而不是需要 它。与其他模块相比，该模块的行为完全不同。

您能否告诉我如何检测目标系统上是否存在 libintl-perl，以及如何在未安装时提供虚拟失败实现？或者给出执行此操作的程序/模块的示例？

Answer 1

gettext 手册错误地建议您要求 CPAN先决条件。在 Perl 世界中每个人都这样做，并且由于 CPAN 基础设施和工具链，它工作得很好。在最坏的情况下，您可以捆绑所需的依赖项。

您问题的直接答案是：

use Try::Tiny;
try {
    require Locale::TextDomain;
    Locale::TextDomain->import('my-package', @locale_dirs);
} catch {
    warn 'Soft dependency could not be loaded, using fallback.';
    require inc::Local::Dummy::Locale::TextDomain;
};

说明： use 只是 require 在编译时，然后是 import，并且可以将其拆分以强制其在运行时执行。

Answer 2

你必须使用 use 而不是 require 来包含 Locale::TextDomain ，因为它正是针对这种情况，当你想要 Perl 的不显眼的 i18n 时，当国际化你的 Perl 代码所需的只是交换：

print "Hello world!\n";

与此：

use Locale::TextDomain qw (com.example.myapp);

print __"Hello world!\n";

在预处理语言中像C 一样，这更容易实现。关于所有国际化 C 库都包含这样的 #define：

#define _(s) dgettext (GETTEXT_PACKAGE, s)

这意味着 _("Hello world!\n") 扩展为包含您的文本域的函数调用包裹。 Perl 源代码无法进行可移植的预处理，因此 Locale::TextDomain 为此目的“滥用”use pragma 的导入机制，以便它可以将 .pm 文件与特定的 .mo 文件关联起来。 textdomain 是软件包安装的 .mo 文件的文件名主干。

如果您不喜欢这种方法，请不要使用它。您也可以不用它：

require Locale::Messages;
print Locale::Messages::dgettext ("com.example.myapp", "Hello world!\n");

但是，Locale::TextDomain 很受欢迎，因为它以一种不那么突兀的方式完成相同的任务。

关于依赖于 Perl 非核心的库：

Perl 模块是否属于 Perl 核心取决于 Perl 版本。每个用户都可以安装 Perl 核心模块的不同版本，而不是她或他的 Perl 附带的版本。因此，强大的包配置将始终检查 Perl 库所需的版本，就像检查任何其他库所需的版本一样。假设检查 perl 是一样的。检查特定 Perl 模块的特定版本是否存在会带来麻烦。

顺便说一句，Try::Tiny 也不是 Perl 核心的一部分。也许不是使用它来检查其他 Perl 模块是否存在的最佳选择。当您想要测试 libintl-perl 时，只需在配置脚本中执行 perl -MLocale::TextDomain -e exit 并检查退出状态。

Answer 3

根据 daxim 的回答，这是一个可能的实现。它检测 Locale::TextDomain 是否可用，并为 __ 和 __x 函数提供简单的无操作回退。我非常感谢对此代码的改进和建议。

BEGIN
{
    if (eval("require Locale::TextDomain; 1;"))
    {
        Locale::TextDomain->import('my-package', @locale_dirs);
    }
    else
    {
        my $subCode = <<'EOF'

        sub __
        {
            return $_[0];
        }

        sub __x
        {
            my $s = shift;
            my %args = @_;
            $s =~ s/\{(\w+)\}/$args{$1}/sg;
            return $s;
        }
EOF
;
        eval($subCode);
    }
}

我认为整个代码需要位于 BEGIN 内，否则代码中的 __ 和 __x 调用会导致错误。此外，后备函数是使用 eval() 创建的，以避免“原型不匹配：”警告。我对更优雅的解决方案感兴趣，尤其是。对于后一点。

Answer 4

创建一个目录“fallback/Locale”并在其中创建一个模块 TextDomain.pm，其中包含您需要的所有功能的存根实现：

package Locale::TextDomain;

use strict;

sub __($) { return $_[0] }
sub __n($$) { return $_[2] == 1 ? $_[0] : $_[1] }

# And so on, see the source of Locale::TextDomain for getting an
# idea how to implement the other stubs.

现在将 BEGIN 块插入应用程序的入口点（通常是 .pl 脚本，而不是 . pm 模块）：

BEGIN {
    push @INC, "fallback";
}

现在 Perl 将总是在 @INC 中找到 Locale/TextDomain.pm，对后备目录中的存根实现有疑问。