Discussion :

[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

[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 ?

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

[djibril]

Bonjour,

Voici un programme fonctionnel :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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";

[elvivo]

Ou pour un version portable:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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).

[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.

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).

[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

[Philou67430]

Ce que je voulais souligner, c'est qu'on ne peut pas dire que c'est portable

[djibril]

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