回答

1

你可以試試這個: http://perlboard.svn.sourceforge.net/viewvc/perlboard/battie/lib/HTML/Template/Compiled/Plugin/Translate.pm?view=markup

我想打一個CPAN模塊出來。希望不久=) 下面是一個例子,模塊中的評論都是過時的:

use HTML::Template::Compiled; 
use HTML::Template::Compiled::Plugin::Translate; 
my $t = <<"EOM"; 
<%translate id="search %1:s found %2:d videos" count=".items#" args=".search,.items#" %> 
EOM 

my $map = { 
    "search %1:s found %2:d videos" => [ 
     q/Suche nach "%1:s" hat %2:020d Video gefunden/, 
     q/Suche nach "%1:s" hat %2:d Videos gefunden/, 
    ], 
}; 
my $plug = HTML::Template::Compiled::Plugin::Translate->new({ 
    lang => "de", 
    map => $map, 
}); 

my $htc = HTML::Template::Compiled->new(
    scalarref => \$t, 
    plugin => [$plug], 
); 
$htc->param(
    search => "search term", 
    items => [qw/ result1 result2 /], 
); 
print $htc->output; 

的模板語法是不是越短你想要的,我不使用gettext,但也許你喜歡它或者可以從這個例子中構建你自己的插件。

關於, tina