mod_perl 设置中的多个语言环境之间存在冲突吗？

Question

我目前正在致力于大型 Perl/Mason Web 应用程序的国际化（Perl 5.8.0、Mason 1.48、mod_perl 和 Apache）。在选择本地化模块时，我决定使用 Locale::TextDomain 优于 Locale::Maketext，主要是因为后者的复数形式支持不如我想要的那么好。

我在 Locale::TextDomain 中遇到的问题是它根据进程的区域设置来解析用于翻译的目录。当我意识到这一点时，我担心如果我希望用户能够使用不同的区域设置，这将如何影响我的应用程序 - 为适应一个用户的设置而更改区域设置是否可能会影响另一个用户的会话？例如，是否会出现这样的情况：由于德语用户的会话更改了进程的区域设置，英语用户收到了德语页面？我不太了解 Apache 的线程/进程模型是如何工作的，尽管似乎如果多个用户可以由同一个线程提供服务，这种情况就可能发生。

此电子邮件线程将表明这是可能的； 这里OP描述了我正在考虑的情况。

如果这是真的，有没有办法可以在仍然使用 Locale::TextDomain 的同时防止这种情况发生？我想我总是可以破解模块以独立于语言环境加载目录（可能使用 DBD::PO），但希望我只是缺少一些可以解决我的问题的东西......

Answer 1

通过使用 setlocale 问题改为“nofollow">web_set_locale。

（邮件列表上的该消息早于该功能的添加大约 4 年。）

---

编辑：您是正确的，全局行为在 Apache 子项中持续存在，导致 错误行为。

我写了一个测试用例：

app.psgi

use 5.010;
use strictures;
use Foo::Bar qw(run);

my $app = sub {
    my ($env) = @_;
    run($env);
};

Foo/Bar.pm

package Foo::Bar;
use 5.010;
use strictures;
use Encode qw(encode);
use File::Basename qw(basename);
use Locale::TextDomain __PACKAGE__, '/tmp/Foo-Bar/share/locale';
use Locale::Util qw(web_set_locale);
use Plack::Request qw();
use Sub::Exporter -setup => { exports => [ 'run' ] };

our $DEFAULT_LANGUAGE = 'en'; # untranslated source strings

sub run {
    my ($env) = @_;
    my $req = Plack::Request->new($env);
    web_set_locale($env->{HTTP_ACCEPT_LANGUAGE}, undef, undef, [
        map { basename $_ } grep { -d } glob '/tmp/Foo-Bar/share/locale/*'
    ]); # XXX here
    return $req
        ->new_response(
            200, 
            ['Content-Type' => 'text/plain; charset=UTF-8'],
            [encode('UTF-8', __ 'Hello, world!')],
        )->finalize;
}

该应用程序作为 PerlResponseHandler 运行。当用户请求无法设置的语言时，调用会静默失败，并且仍启用上次成功使用的语言。

解决此问题的技巧是始终设置为具有后备机制的语言。在标记为 XXX 的位置，添加代码或 web_set_locale($DEFAULT_LANGUAGE)，这样尽管使用了全局设置，该行为也无法持续存在，因为我们保证每个请求都会设置/更改一次。

---

编辑2：进一步测试表明它不是线程安全的，抱歉。仅使用将请求隔离为进程的 prefork MPM；但是，worker 和 event 会受到影响，因为它们是基于线程的。