Information sur le "Séparateur de décimal" depuis perl

Version imprimable

29/10/2012, 20h45
beware

Information sur le "Séparateur de décimal" depuis perl

Bonjour,

je suis entrain d'écrire un script perl qui devra fonctionner sur plusieurs machine et dans plusieurs langues pour du processing de fichiers.

Et la question que je me pose, est la suivante :

Est-il possible depuis le script de connaitre la valeur du 'séparateur de décimal' configuré dans windows?

Merci
30/11/2012, 09h37
nibroc

Bonjour,
Il me semble que la valeur du séparateur décimal se trouve dans le registre sous la clé :
HKEY_CURRENT_USER\ControlPanel\International
C'est la donnée associée à la valeur sDecimal
Maintenant il s'agit de savoir comment lire cette donnée en Perl
Peut-être quelqu'un connaît-il le module ou la fonction qui fait ça ?

Citation:

Envoyé par beware

Bonjour,

je suis entrain d'écrire un script perl qui devra fonctionner sur plusieurs machine et dans plusieurs langues pour du processing de fichiers.

Et la question que je me pose, est la suivante :

Est-il possible depuis le script de connaitre la valeur du 'séparateur de décimal' configuré dans windows?

Merci

Bonjour,

Voici un programme fonctionnel :

Code:

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
use strict;
use warnings;
 
my %RegHash;
use Win32::TieRegistry( TiedHash => \%RegHash );
use Data::Dumper;
my $Key = $RegHash{"HKEY_CURRENT_USER\\Control Panel\\International\\sDecimal"};
print "Separateur : '$Key'\n";

Ou pour un version portable:

Code:

1
2
3
4
use strict;
use warnings;
use POSIX q/localeconv/;
print localeconv()->{decimal_point};

03/12/2012, 14h48
Philou67430

Sur ma machine Win64, la version de djibril m'a donné la bonne valeur, et la version "portable" a donné le mauvais résultat (strawberry perl).
03/12/2012, 22h00
nibroc

Même chose pour moi : ActivePerl Windows 7. Il faut dire que sur mon ordinateur, si je tape par exemple 1.5 dans une cellule Excel c'est 1,5 qui s'affiche. Avec la calculatrice, c'est pareil, je peux taper indifféremment sur le point ou sur la virgule, c'est la virgule qui s'affiche.

Citation:

Envoyé par Philou67430

Sur ma machine Win64, la version de djibril m'a donné la bonne valeur, et la version "portable" a donné le mauvais résultat (strawberry perl).
03/12/2012, 23h05
elvivo

Et j'utilises ActivePerl sous Win7 64 et le separateur est bien '.' (j'utilise une version US).

Pour repondre je me suis base sur: http://perldoc.perl.org/perllocale.html
J'aurais surement du preciser que ce que je proposais se base sur le fait que l'OS respecte POSIX et dans le cas de windows, il a de la manip a faire (http://technet.microsoft.com/en-us/l.../cc754351.aspx).

Enfin bon, comme on dit dans ces cas la: chez moi ca marche :)
04/12/2012, 10h04
Philou67430

Ce que je voulais souligner, c'est qu'on ne peut pas dire que c'est portable ;)
08/05/2013, 13h28
djibril

Un article a été rédigé pour la base de registre : http://www.developpez.net/forums/d13...ndows-en-perl/.