[HS] gettext et perl ?
Salut,
Limite HS ici mais comme c'est sur une base de document Debian, je
voudrai savoir si c'est moi qui merdoie ou s'il y a un bogue dans la
doc d'un paquet Debian...
C'est pour i18n et l10n un script Perl...
Je suis parti de la doc de /usr/share/doc/liblocale-gettext-perl/README.gz
Voici un cas d'école qui ne fonctionne pas :
# cat essai.pl
#!/usr/bin/perl
use warnings;
use strict;
# for i18n and l10n
#
use POSIX;
use Locale::gettext;
# set environment clean for i18n
#
setlocale(LC_MESSAGES, "");
my $d = Locale::gettext->domain("essai");
$d->dir("/home/pk/Perso/Pdico/locale");
print gettext("All you need is love"), "\n";
exit 0;
Dans le ~/Perso/Pdico,
# mkdir -p locale/fr_FR
# xgettext -L Perl -d essai essai.pl
# cat essai.po (après edition)
# SOME DESCRIPTIVE TITLE.
# Copyright (C) YEAR THE PACKAGE'S COPYRIGHT HOLDER
# This file is distributed under the same license as the PACKAGE package.
# FIRST AUTHOR <EMAIL@ADDRESS>, YEAR.
#
#, fuzzy
msgid ""
msgstr ""
"Project-Id-Version: PACKAGE VERSION\n"
"Report-Msgid-Bugs-To: \n"
"POT-Creation-Date: 2007-09-24 15:08+0200\n"
"PO-Revision-Date: YEAR-MO-DA HO:MI+ZONE\n"
"Last-Translator: \n"
"Language-Team: LANGUAGE <LL@li.org>\n"
"MIME-Version: 1.0\n"
"Content-Type: text/plain; charset=iso-8859-15\n"
"Content-Transfer-Encoding: 8bit\n"
#: essai.pl:25
msgid "All you need is love"
msgstr "Tout ce dont vous avez besoin est d'aimer"
# msgfmt essai.po -o essai.mo
# mv essai.po locale/fr_FR
# export LANG=C
# ./essai.pl
All you need is love
# export LANG=fr_FR
# ./essai.pl
All you need is love
Une idée ?
Merci d'avance,
PK
--
|\ _,,,---,,_ Patrice KARATCHENTZEFF
ZZZzz /,`.-'`' -. ;-;;,_ mailto:p.karatchentzeff@free.fr
|,4- ) )-,_. ,\ ( `'-' http://p.karatchentzeff.free.fr
'---''(_/--' `-'\_)
Reply to: