名称

Locale::Po4a::TransTractor - 通用翻译提取器。

描述

Po4a (PO For Anything) 项目的目标是在文档等不需要翻译的领域使用 gettext 工具简化翻译(更有趣的是，简化翻译的维护)。

这个类是每个 po4a 解析器的祖先，用于解析文档、搜索可翻译字符串、将它们提取到 PO 文件并在输出文档中用它们的翻译替换它们。

更正式地说，它接受以下参数作为输入：

• 要翻译的文档;
• 包含要使用的翻译的 PO 文件。

作为输出，它产生：

• 另一个 PO 文件，其结果是从输入文档中提取可翻译字符串;
• 翻译的文档，其结构与输入中的文档相同，但所有可翻译字符串都替换为输入中提供的 PO 文件中的翻译。

以下是这一点的图形表示：

输入文档 --\                             /---> 输出文档
                  \                           /       (已翻译)
                   +-> 解析() 函数 -----+
                  /                           \
输入 PO --------/                             \---> 输出 PO
                                                      (已提取)

解析器应该重写的函数

parse()

所有工作都在这里进行：解析输入文档、生成输出和提取可翻译字符串。使用下面 INTERNAL FUNCTIONS 章节中提供的函数可以非常简单地实现这一点。另请参阅 SYNOPSIS，它提供了一个示例。

此函数由下面的 process() 函数调用，但如果您选择使用 new() 函数，并手动将内容添加到文档中，则必须自己调用此函数。

docheader()

此函数返回我们应该添加到生成的文档中的标题，并将其正确引用为目标语言中的注释。有关它的好处，请参阅 po4a(7) 中的 Educating developers about translations 章节。

简介

下面的示例解析以 "<p>" 开头的段落列表。为简单起见，我们假定文档格式良好，即 "<p>" 标记是唯一存在的标记，并且该标记位于每个段落的最开始。

sub parse {
  my $self = shift;
  PARAGRAPH: while (1) {
      my ($paragraph,$pararef)=("","");
      my $first=1;
      my ($line,$lref)=$self->shiftline();
      while (defined($line)) {
          if ($line =~ m/<p>/ && !$first--; ) {
              # 这不是我们第一次看到<p>。
              # 将当前行重新放入输入，
              #  并将构建的段落输出
              $self->unshiftline($line,$lref);
              # 现在文档已形成，请翻译它：
              #   - 删除前导标记
              $paragraph =~ s/^<p>//s;
              #   - 按键输出前导标签(未翻译)和
              #     段落的其余部分(已翻译)
              $self->pushline(  "<p>"
                              . $self->translate($paragraph,$pararef)
                              );
              next PARAGRAPH;
          } else {
              # 追加到段落后面
              $paragraph .= $line;
              $pararef = $lref unless(length($pararef));
          }
          # 重新初始化循环
          ($line,$lref)=$self->shiftline();
      }
      # 没有得到定义的行吗？输入文件的结尾。
      return;
  }
}

一旦实现了解析函数，就可以使用下一节中介绍的公共接口来使用 document 类。

使用解析器的脚本的公共接口

用于编写派生解析器的内部函数

* Perl shift 返回第一个数组项并将其从数组中删除。
* Perl unshift 将项作为第一个数组项添加到数组中。
* Perl pop 返回最后一个数组项并将其从数组中删除。
* Perl push 将一项作为最后一个数组项追加到数组中。

$self->translate("string","ref","type",
                 'wrap' => 1);

未来方向

当前翻译提取器的一个缺点是它不能处理包含所有语言的翻译文档，如 debconf 模板或 .desktop 文件。

要解决此问题，只需更改接口：

• 将散列作为 po_in_name (每种语言的列表)
• 添加要翻译的参数以指示目标语言
• 使用类似映射的语法创建一个 pushline_all 函数，该函数将为所有语言创建其内容的 pushline：

  $self->pushline_all({ "Description[".$langcode."]=".
                        $self->translate($line,$ref,$langcode)
                      });
  

看看是否足够 ;)

作者

Denis Barbier <barbier@linuxfr.org>
Martin Quinson (mquinson#debian.org)
Jordi Vilalta <jvprat@gmail.com>

翻译

taotieren <admin@taotieren.com>