編輯以澄清/反映我一直在嘗試的內容：
我正在使用 CatalystX::I18N::* 以便能夠使我的網站國際化。我的效果很好，我的網站文本來自$c->maketext().
但是，我一直在嘗試從我的資料庫模型中訪問這些代碼（以便在創建/更新之前檢查輸入時生成例如成功或失敗訊息）并且正在苦苦掙扎。
根據CatalystX::I18N docs，CatalystX::I18N::Maketext是Locale::Maketext的“有用包裝器” 。也可以在 Catalyst 之外使用。
我按照指示進行了 MyApp::Maketext 設定：
package MyApp::Maketext;
use strict;
use warnings;
use parent qw(CatalystX::I18N::Maketext);
1;
我有一個小測驗腳本正在運行，其設定是這樣的：
#!/usr/bin/perl
use strict;
use warnings;
use FindBin qw( $Bin );
use lib "$Bin/../lib";
use TopTable::Maketext;
use Path::Class::Dir;
my $dir = Path::Class::Dir->new( "$Bin/..", "root", "locale" );
TopTable::Maketext->load_lexicon(
locales => ["en_GB"], # Required
directories => [$dir], # Required
gettext_style => 0, # Optional, Default 1
);
然后我嘗試兩種不同的方法來處理該maketext()方法：
my $lang = TopTable::Maketext->get_handle;
printf "%s\n", $lang->maketext( "menu.title.news" );
給出以下結果：
Can't call method "maketext" on an undefined value at bin\maketext-demo.pl line 23.
->get_handle如果我換成->new：
my $lang = TopTable::Maketext->new;
printf "%s\n", $lang->maketext( "menu.title.news" );
我得到以下資訊：
maketext doesn't know how to say:
menu.title.news
as needed at bin\maketext-demo.pl line 23.
我不知道接下來要嘗試什么！非常感謝您提供任何人可以提供的任何指示。
克里斯
uj5u.com熱心網友回復：
我終于明白了這一點 - 這是最終有效的代碼：
#!/usr/bin/perl
use strict;
use warnings;
use FindBin qw( $Bin );
use lib "$Bin/../lib";
use Data::Dumper::Concise;
use TopTable::Maketext;
use Config::ZOMG;
use Path::Class::Dir;
my $tt_config = Config::ZOMG->new( name => 'TopTable' );
my $config_hash = $tt_config->load;
my (@locales, %inhertiance, $config);
$config = $config_hash->{I18N}{locales};
foreach my $locale (keys %$config) {
push(@locales, $locale);
$inhertiance{$locale} = $config->{$locale}{inherits} if defined $con
fig->{$locale}{inherits};
}
my $dir = Path::Class::Dir->new( "$Bin/..", "root", "locale" );
TopTable::Maketext->load_lexicon(
locales => \@locales,
directories => [$dir],
gettext_style => 1,
inheritance => \%inhertiance,
);
my $lang = TopTable::Maketext->get_handle( "en_GB" );
printf "%s\n", $lang->maketext( "menu.title.league-tables", "Division Three" );
1;
這給出了正確的值：
League Tables for Division Three
感謝您忍受我的垃圾郵件！
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/420222.html
標籤：