Publicité
+ Répondre à la discussion
Affichage des résultats 1 à 9 sur 9
  1. #1
    Invité régulier
    Inscrit en
    novembre 2005
    Messages
    80
    Détails du profil
    Informations forums :
    Inscription : novembre 2005
    Messages : 80
    Points : 7
    Points
    7

    Par défaut 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

  2. #2
    Membre actif
    Homme Profil pro Michel
    Inscrit en
    juillet 2009
    Messages
    164
    Détails du profil
    Informations personnelles :
    Nom : Homme Michel
    Âge : 70
    Localisation : France

    Informations forums :
    Inscription : juillet 2009
    Messages : 164
    Points : 187
    Points
    187

    Par défaut

    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 Voir le message
    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

  3. #3
    Responsable Perl et Outils

    Avatar de djibril
    Homme Profil pro
    Inscrit en
    avril 2004
    Messages
    16 473
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : avril 2004
    Messages : 16 473
    Points : 465 172
    Points
    465 172

    Par défaut

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

    Pas de questions technique par messagerie privée (lisez les règles du forum Perl) et pour les nouveaux !

  4. #4
    Membre régulier Avatar de elvivo
    Inscrit en
    mai 2002
    Messages
    105
    Détails du profil
    Informations forums :
    Inscription : mai 2002
    Messages : 105
    Points : 71
    Points
    71

    Par défaut

    Ou pour un version portable:
    Code :
    1
    2
    3
    4
    use strict;
    use warnings;
    use POSIX q/localeconv/;
    print localeconv()->{decimal_point};
    In code we trust !!

  5. #5
    Expert Confirmé

    Inscrit en
    avril 2009
    Messages
    2 943
    Détails du profil
    Informations personnelles :
    Âge : 48

    Informations forums :
    Inscription : avril 2009
    Messages : 2 943
    Points : 3 367
    Points
    3 367

    Par défaut

    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).
    Plus j'apprends, et plus je mesure mon ignorance (philou67430)
    Toute technologie suffisamment avancée est indiscernable d'un script Perl (Llama book)
    Partagez vos problèmes pour que l'on partage ensemble nos solutions : je ne réponds pas aux questions techniques par message privé
    Using strict and warnings is good for you.

  6. #6
    Membre actif
    Homme Profil pro Michel
    Inscrit en
    juillet 2009
    Messages
    164
    Détails du profil
    Informations personnelles :
    Nom : Homme Michel
    Âge : 70
    Localisation : France

    Informations forums :
    Inscription : juillet 2009
    Messages : 164
    Points : 187
    Points
    187

    Par défaut

    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 Voir le message
    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).

  7. #7
    Membre régulier Avatar de elvivo
    Inscrit en
    mai 2002
    Messages
    105
    Détails du profil
    Informations forums :
    Inscription : mai 2002
    Messages : 105
    Points : 71
    Points
    71

    Par défaut

    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
    In code we trust !!

  8. #8
    Expert Confirmé

    Inscrit en
    avril 2009
    Messages
    2 943
    Détails du profil
    Informations personnelles :
    Âge : 48

    Informations forums :
    Inscription : avril 2009
    Messages : 2 943
    Points : 3 367
    Points
    3 367

    Par défaut

    Ce que je voulais souligner, c'est qu'on ne peut pas dire que c'est portable
    Plus j'apprends, et plus je mesure mon ignorance (philou67430)
    Toute technologie suffisamment avancée est indiscernable d'un script Perl (Llama book)
    Partagez vos problèmes pour que l'on partage ensemble nos solutions : je ne réponds pas aux questions techniques par message privé
    Using strict and warnings is good for you.

  9. #9
    Responsable Perl et Outils

    Avatar de djibril
    Homme Profil pro
    Inscrit en
    avril 2004
    Messages
    16 473
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : avril 2004
    Messages : 16 473
    Points : 465 172
    Points
    465 172

    Par défaut

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

    Pas de questions technique par messagerie privée (lisez les règles du forum Perl) et pour les nouveaux !

Liens sociaux

Règles de messages

  • Vous ne pouvez pas créer de nouvelles discussions
  • Vous ne pouvez pas envoyer des réponses
  • Vous ne pouvez pas envoyer des pièces jointes
  • Vous ne pouvez pas modifier vos messages
  •