1

我对调用Locale::Maketext::Lexicon的 I18N 例程有疑问。正在调用的例程（来自CatalystX::I18N::Maketext）如下：

sub load_lexicon {
my ( $class, %params ) = @_;

my $locales = $params{locales} || [];
my $directories = $params{directories};
my $gettext_style = defined $params{gettext_style} ? $params{gettext_style} : 1;
my $inheritance = $params{inheritance} || {};

$directories = [ $directories ]
    if defined $directories
    && ref $directories ne 'ARRAY';
$directories ||= [];
$locales = [ $locales ]
    unless ref $locales eq 'ARRAY';

die "Invalid locales"
    unless defined $locales
    && scalar @$locales > 0
    && ! grep {  $_ !~ $CatalystX::I18N::TypeConstraints::LOCALE_RE } @$locales;

{
    no strict 'refs';
    my $lexicon_loaded = ${$class.'::LEXICON_LOADED'};
    if (defined $lexicon_loaded
        && $lexicon_loaded == 1) {
        warn "Lexicon has already been loaded for $class";
        return;
    }
}

my $lexicondata = {
    _decode => 1,
};
$lexicondata->{_style} = 'gettext'
    if $gettext_style;

my %locale_loaded;

# Loop all directories
foreach my $directory (@$directories) {
    next 
        unless defined $directory;

    $directory = Path::Class::Dir->new($directory)
        unless ref $directory eq 'Path::Class::Dir';

    next
        unless -d $directory->stringify && -e _ && -r _;

    my @directory_content =  $directory->children();

    # Load all avaliable message files
    foreach my $locale (@$locales) {
        my $lc_locale = lc($locale);
        $lc_locale =~ s/-/_/g;
        my @locale_lexicon;
        foreach my $content (@directory_content) {
            if ($content->is_dir) {
                push(@locale_lexicon,'Slurp',$content->stringify)
                    if $content->basename eq $locale;
            } else {
                my $filename = $content->basename;
                if ($filename =~ m/^$locale\.(mo|po)$/i) {
                    push(@locale_lexicon,'Gettext',$content->stringify);
                } elsif ($filename =~ m/^$locale\.m$/i) {
                    push(@locale_lexicon,'Msgcat',$content->stringify);
                } elsif($filename =~ m/^$locale\.db$/i) {
                    push(@locale_lexicon,'Tie',[ $class, $content->stringify ]);
                } elsif ($filename =~ m/^$lc_locale\.pm$/) {
                    $locale_loaded{$locale} = 1;
                    require $content->stringify;
                    # TODO transform maketext -> gettext syntax if flag is set
                    # Locale::Maketext::Lexicon::Gettext::_gettext_to_maketext
                }
            }
        }
        $lexicondata->{$locale} = \@locale_lexicon
            if scalar @locale_lexicon;
    }
}

# Fallback lexicon
foreach my $locale (@$locales) {
    next
        if exists $inheritance->{$locale};
    next
        if exists $locale_loaded{$locale};
    $lexicondata->{$locale} ||= ['Auto'];
}

eval qq[
    package $class;
    our \$LEXICON_LOADED = 1;
    Locale::Maketext::Lexicon->import(\$lexicondata)
];

while (my ($locale,$inherit) = each %$inheritance) {
    my $locale_class = lc($locale);
    my $inherit_class = lc($inherit);
    $locale_class =~ s/-/_/g;
    $inherit_class =~ s/-/_/g;
    $locale_class = $class.'::'.$locale_class;
    $inherit_class = $class.'::'.$inherit_class;
    no strict 'refs';
    push(@{$locale_class.'::ISA'},$inherit_class);
}

die("Could not load Locale::Maketext::Lexicon") if $@;
return;

}

我认为问题在于我试图在以语言环境命名的目录中加载多个文件（即，en_GB 目录将包含多个文件，其中包含翻译消息）。我相信这会导致 push(@locale_lexicon,'Slurp',$content->stringify) 执行。

当我临时更改底部的 die 消息以添加 $@ 的值时，我得到以下信息：

"Could not load Locale::Maketext::Lexicon: Cannot read D:\WAMP\Apache\Apache2\htdocs\TopTable\Test\TopTable\root\locale\en_GB (called by TopTable::Maketext): Permission denied at D:/WAMP/Perl/perl/site/lib/Catalyst/ScriptRunner.pm line 50.

我不知道为什么这条消息会阻止它；perl 进程在我的登录会话下运行，我可以毫无问题地访问目录和其中的文件；我还（暂时）授予了“每个人”对目录的修改访问权限（尽管我确信它应该只需要读取）并且没有任何效果。

有没有人有什么建议？如果我将所有翻译保存在一个 en_gb.po 文件中，它会起作用，但是它变得非常笨拙，如果可以的话，我想将这些消息分开。

请注意，我让它在 Apache 目录中运行的事实只是因为这往往是我放置我的网络内容的地方 - 这只是在我的笔记本电脑上运行，而外部世界无法访问（我正在开发一个 Catalyst 网站最终将在 CentOS 上运行）。目前它通过 Catalyst 内置 Web 服务器运行（使用 HTTP::Server::PSGI）。我直接在我自己的用户名下运行它，所以没有服务在单独的帐户下运行。

非常感谢

4

0 回答 0