[Mastering-perl] Internationalization: over-engineering JAPH

[Xavier Noria]

On Jun 11, 2006, at 1:02, brian d foy wrote:

> I've been working on my modulino (modules as scripts) chapter, and as
> an example I  completely over-engineer JAPH, adding Template and
> internationalization.
>
> http://www252.pair.com/comdog/mastering_perl/Chapters/modulinos.html
>
> I used some online translators to turn "Just another Perl Hacker" into
> other languages, but I really have no idea if the translations
> actually mean the same thing. Anyone want to see how close I got? In
> the repository, the translations are in
> ./Scripts/Modulinos/japh.pm.d/t/config.txt
>
> But, you don't have to go through all that work, because here it is:
> I'll add any  locales and other translations people can provide. :)
>
> en_US "Just another %s hacker, "
> eu_ES "apenas otro hacker del %s, "

I think

   eu_ES "tan sólo otro hacker de %s, "

would be better (is "eu_ES" correct?).

Barcelona.pm has a JAPH that prints Catalan[*]:

   Tan sols un altre hacker de Perl

that would be

   ca_ES "tan sols un altre hacker de %s, "

-- fxn 
[*]

$_=q;Barcelona Perl Mongers;,$/=y,gaudi,,,;map$,+=(split//)*(-1)**$|++
,(split)[.11_09,1.714];$.=''!~m~erce~;$"=y,catalunya,,,$;=y,rambles,,,
$*=$/^$.;$:=$.+length,$@=$***$**$/**$*%$:,$%=$/*$"-$*;print+chr($_<0xA
?$.."$[$_":m:^$.:?$..$_:$_)for($**$**$/*$",$"*$@+$**$/,$**$,,$***$,,$/
*$,,$;,$***$/,$,*$/,$.<<$,,$%-$*,$"+$/,$***$,,(($,*$*)**$*)-$/,$***$/,
$@+$/,$:-($/**$*),$.,$:+$"+$*,$.<<$*,$,**$/-$:-$,,exp$:/$,,$",$.,$"*$*
,$***$,,log$.,$.,-$/+$"*$,,$/+$"*$;,$.,++$@,$***($/&=$/+Barcelona_pm))