1. #1
    Membre à l'essai
    Profil pro
    Inscrit en
    novembre 2006
    Messages
    10
    Détails du profil
    Informations personnelles :
    Localisation : France, Haute Garonne (Midi Pyrénées)

    Informations forums :
    Inscription : novembre 2006
    Messages : 10
    Points : 10
    Points
    10

    Par défaut Somme de chaînes numériques

    Bonjour,

    Je souhaite réaliser des sommes de chaînes numériques. J'ai besoin de faire ces sommes sur des variables que je récupère avec un script existant.
    Je donne quelques exemples de ce que j'ai et de ce que je souhaite.

    $mavariable = 11411 --> résultat attendu (1 + 1 + 4 + 1 + 1) : 8
    $mavariable = 121 --> résultat attendu : 4
    $mavariable = 262 --> résultat attendu : 10
    $mavariable = 1116111 --> résultat attendu : 12

    J'ai tenté en utilisant "split" mais je n'arrive à rien de cohérent.
    Si quelqu'un peut m'aider merci d'avance.

  2. #2
    Responsable Perl et Outils

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

    Informations forums :
    Inscription : avril 2004
    Messages : 19 057
    Points : 495 972
    Points
    495 972

    Par défaut

    Bonsoir,

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    #!/usr/bin/perl
    use strict;
    use warnings;
    use List::Util qw/ sum /;
     
    my $mavariable = 1116111;
    my @unites = $mavariable =~ /(.)/g;
    print sum @unites;
    12

  3. #3
    Membre à l'essai
    Profil pro
    Inscrit en
    novembre 2006
    Messages
    10
    Détails du profil
    Informations personnelles :
    Localisation : France, Haute Garonne (Midi Pyrénées)

    Informations forums :
    Inscription : novembre 2006
    Messages : 10
    Points : 10
    Points
    10

    Par défaut

    Ca fonctionne parfaitement,
    Merci beaucoup.

  4. #4
    Rédacteur/Modérateur

    Avatar de Lolo78
    Homme Profil pro
    Conseil - Consultant en systèmes d'information
    Inscrit en
    mai 2012
    Messages
    3 034
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Yvelines (Île de France)

    Informations professionnelles :
    Activité : Conseil - Consultant en systèmes d'information
    Secteur : High Tech - Opérateur de télécommunications

    Informations forums :
    Inscription : mai 2012
    Messages : 3 034
    Points : 9 907
    Points
    9 907
    Billets dans le blog
    1

    Par défaut

    Bonjour,

    la solution utilisant la fonction sum du module List::Util présentée par Djibril est sans doute la meilleure (et la plus rapide), mais je ne comprends pas que tu n'y arrives pas en pur Perl. Voici donc une solution plus algorithmique, donnée à des fins purement pédagogiques (pas testée sur mon mobile):
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
     
    my @chiffres = split //, $nombre;
    my $sum = 0;
    for my $digit (@chiffres) {
        $sum = $sum + $digit;
    }
    Ou, plus concisément:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
     
    my @chiffres = split //, $nombre;
    my $sum = 0;
    $sum += $_ for @chiffres;
    Edit: corrigé le nom du tableau (@chiffres au lieu de @digits) dans dernière ligne du code-ci-dessus.

  5. #5
    Membre habitué
    Homme Profil pro
    Ingénieur intégration
    Inscrit en
    juillet 2014
    Messages
    72
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Ille et Vilaine (Bretagne)

    Informations professionnelles :
    Activité : Ingénieur intégration
    Secteur : Conseil

    Informations forums :
    Inscription : juillet 2014
    Messages : 72
    Points : 172
    Points
    172

    Par défaut

    Citation Envoyé par Lolo78 Voir le message
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
     
    my @chiffres = split //, $nombre;
    my $sum = 0;
    $sum += $_ for @digits;
    Bonjour Lolo
    dans ton second code, tu remplaces @chiffres par @digits.
    Est ce une erreur de copier coller ?

  6. #6
    Expert éminent Avatar de disedorgue
    Homme Profil pro
    Ingénieur intégration
    Inscrit en
    décembre 2012
    Messages
    2 317
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Ingénieur intégration
    Secteur : High Tech - Opérateur de télécommunications

    Informations forums :
    Inscription : décembre 2012
    Messages : 2 317
    Points : 6 463
    Points
    6 463

    Par défaut

    Bonjour,
    Juste et seulement juste pour le fun:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    my $mavariable = 12345;
    my $sum=${\(map { $a+=$_}  $mavariable =~ m/(.)/g)[-1]};
    Cordialement.

  7. #7
    Rédacteur/Modérateur

    Avatar de Lolo78
    Homme Profil pro
    Conseil - Consultant en systèmes d'information
    Inscrit en
    mai 2012
    Messages
    3 034
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Yvelines (Île de France)

    Informations professionnelles :
    Activité : Conseil - Consultant en systèmes d'information
    Secteur : High Tech - Opérateur de télécommunications

    Informations forums :
    Inscription : mai 2012
    Messages : 3 034
    Points : 9 907
    Points
    9 907
    Billets dans le blog
    1

    Par défaut

    Citation Envoyé par JeanMi3000 Voir le message
    Bonjour Lolo
    dans ton second code, tu remplaces @chiffres par @digits.
    Est ce une erreur de copier coller ?
    Exact, erreur de ma part. Comme je l'ai dit, code non testé posté depuis mon téléphone. J'ai corrigé à toutes fins utiles.

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Extraire une chaîne numérique d'une alphanumérique
    Par SteveG777 dans le forum Excel
    Réponses: 1
    Dernier message: 25/11/2016, 09h44
  2. [Débutant] Analyse et obligation d'utiliser des chaînes numériques
    Par mrpopo dans le forum C#
    Réponses: 3
    Dernier message: 11/08/2012, 01h22
  3. Réponses: 15
    Dernier message: 21/05/2010, 00h36
  4. Extraction chaîne numérique
    Par ALEXM dans le forum Access
    Réponses: 4
    Dernier message: 29/06/2007, 22h17
  5. Réponses: 4
    Dernier message: 21/09/2005, 17h35

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo