Discussion :

[maxwellnina]

Salut a tous me revoila avec une autre casse tete et bien sur toute aide sera welcome

Exposé:
-------
Ecrire un script calcul.pl et une library appelée calcul-lib.pl. La bibliothèque doit contenir une fonction qui prend dans un array de nombres (de taille arbitraire). La fonction calcule alors la moyenne des nombres, le somme des nombres puis et un nouvel array composé des autresdes nombres du premier array divisé par 2. et enfin retournera une nouvelle liste avec toutes ces informations.

Ma solution
------------
Avant de passer a la creation de la library proprement dite j'ai voulu dans un premier temps creer un script avec une sub-routine (fonction) qui effectue les calculs ça parait peu etre idiot mais ça á semblé marché

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
#!/usr/bin/perl
#require 'calculation-lib.pl';
 
my @data = (43, 21, 98, 5, 17, 52, 110, 80);
 
my ($sum, $number_of_items, $average);
my  @number_half;
 
foreach $n (@data) {
    $result = calculation($n);
}
 
print "$result\n",
"Data: ", join (", ", @data), "\n",
"Sum: $sum\n",
"Average: $average\n",
"New Data: ", join(" ", @number_half), "\n";
 
sub calculation() {
   my $n = shift(@_);
   $number_of_items++;
   $sum += $n;
   push @number_half, $n/2;
   $average = $sum / $number_of_items;
 
   return $result;
 }
#}
 
Output
--------
Data: 43, 21, 98, 5, 17, 52, 110, 80
Sum: 426
Average: 53.25
New Data: 21.5 10.5 49 2.5 8.5 26 55 40
 
 
Quand je dit ça semble idiot et bien c'est parceque quand j'essai d'isoler la fonction de calcul dans la librairie
 
sub calculation() {
    foreach $n (@data) {
   $number_of_items++;
   $sum += $n;
   push @number_half, $n/2;
   $average = $sum / $number_of_items;
 
   return $result;
 }
}
1;

et bien ca marche pas

Some help please

Merci pour votre sollicitude

[Beniou]

Bonjour,

Si je comprends bien ce que tu as faut :
Lorsque tu mets ta fonction dans ta librairie, elle n'a plus accès à tes variables globales "$number_of_items", "$average" etc.
Utilise le pragma strict pour voir ce genre d'erreurs au début de tes fichiers

Code :

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

1
2
 
use strict;

Tu as plusieurs possibilités comme par exemple passer ces variables comme arguments de la fonction mais il y en a d'autres

[maxwellnina]

un exemple vaut mille commantaires

[Beniou]

en fait ta fonction doit faire les calculs demandés et de ce fait doit donc déclarer les variables nécessaires aux calculs : sum, average et le tableau de valeurs divisées par 2. Or dans ton exemple, ta fonction utilise des variables qui ne sont pas déclarées dans la fonction de calcul donc ca ne pourra pas marcher. Pour vérifier la portée des variables et voir où et quand on peut les utiliser utilise le pragma strict qui te donnera des erreurs si certaines de tes variables ne sont pas déclarées ( cela sert aussi si tu as fait des fautes de frappes).

Une fois ces calculs fait la fonction retourne alors directement la somme, la moyenne suivis du tableau de valeurs divisées par 2. L'ordre est important car lorsque l'on récupère ces valeurs : la dernière variable contiendra toutes les variables du tableau.

calcul.pl

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
use strict;
require 'calcul-lib.pl';
 
print "Data : ";
foreach my $value(@data){
  print "$value\t";
}
print "\nSum : $sum\nAverage : $average\nDiv 2 :";
foreach my $value(@div_2){
  print "$value\t";
}
print "\n";

calcul-lib.pl

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
use strict;
 
 
sub do_calculation{
 
  my @values = @_;
 
  my $sum = 0;
  my $average = 0;
  my @div_2;
 
  foreach my $value(@values){
    $sum += $value;
    push(@div_2, $value / 2);
  }
 
  my $nb_elements = scalar(@values);
  $average = $sum / $nb_elements;
 
  return($sum,$average,@div_2);
 
}
 
1;

Dernière chose : quand on fait une librairie, un module etc. toujours terminer par un 1; car il doit renvoyer une valeur vraie.

[maxwellnina]

sub do_calculation{

rien dans la fonction que tu me donne généreusement en exemple ne s'y réfère

et bien entendu les essais ne sont pas concluant ou alors je me trompe quelque part?

Merci

[Beniou]

Désolé mauvais copié collé...

Voici le fichier calcul.pl en entier.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
#!/usr/bin/perl -w
 
use strict;
require 'calcul-lib.pl';
 
my @data = (43, 21, 98, 5, 17, 52, 110, 80);
 
my ($sum,$average,@div_2) = &do_calculation(@data);
 
print "Data : ";
foreach my $value(@data){
  print "$value\t";
}
print "\nSum : $sum\nAverage : $average\nDiv 2 :";
foreach my $value(@div_2){
  print "$value\t";
}
print "\n";