[HS] gettext et perl ?

["Patrice Karatchentzeff" <patrice.karatchentzeff@gmail.com>]

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
    '---''(_/--'  `-'\_)