名称¶

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>