Discussion :

[RandoTr]

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.

[djibril]

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

[RandoTr]

Ca fonctionne parfaitement,
Merci beaucoup.

[Lolo78]

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.

[JeanMi3000]

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 ?

[disedorgue]

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]};

[Lolo78]

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.