Use of uninitialized value in division

Version imprimable

[Résolu] Use of uninitialized value in division

Bonjour a tous,

J'ai un probleme (d'ou on poste :D) avec perl . J'essai d'utiliser le module Statistics::RankCorrelation. Mais je suis bloquer, voici un exemple pour illustrer mon probleme.

Code:

1
2
3
4
5
6
7
8
9
10
use Statistics::RankCorrelation;
 
my $x = [ 0, 7, 6, 5, 4, 3, 2, 1 ];
my $y = [ 2, 0, 5, 3, 4, 7, 8, 6 ];
 
$c = Statistics::RankCorrelation->new( $ru, $ru2); # edition remplacement de $r par $ru et $ru2
 
print $c->spearman."\n";
print $c->kendall."\n";
print $c->csim."\n";

La tous va bien. mais tous ce complique dans l'exemple suivant.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
use Statistics::RankCorrelation;
my @ru=();
my @ru2=();
 
$ru[++$#ru]=18.2;
$ru[++$#ru]=1.2;
$ru[++$#ru]=15.2;
$ru[++$#ru]=10.2;
$ru[++$#ru]=1.2;
$ru[++$#ru]=100.2;
 
$ru2[++$#ru2]=128.2;
$ru2[++$#ru2]=14.2;
$ru2[++$#ru2]=153.2;
$ru2[++$#ru2]=10.2;
$ru2[++$#ru2]=19.2;
$ru2[++$#ru2]=10.2;
 
$c = Statistics::RankCorrelation->new( $ru, $ru2);
 
print $c->spearman."\n";
print $c->kendall."\n";
print $c->csim."\n";

J'obtiens ceux-ci comme erreur:

Code:

1
2
Use of uninitialized value in division (/) at /opt/local/lib/perl5/site_perl/5.8.9/Statistics/RankCorrelation.pm line 110.
Illegal division by zero at /opt/local/lib/perl5/site_perl/5.8.9/Statistics/RankCorrelation.pm line 110.

La je comprend pas, est-ce un probleme d'initialisation de mes tableaux, ou la facon dont j'ajoute les données dans les tableaux?

Citation:
Envoyé par thibaultG
Bonjour a tous,

J'ai un probleme (d'ou on poste :D) avec perl . J'essai d'utiliser le module Statistics::RankCorrelation. Mais je suis bloquer, voici un exemple pour illustrer mon probleme.
Code:

1 2 3 4 5 6 7 8 9 10 use Statistics::RankCorrelation; my $x = [ 0, 7, 6, 5, 4, 3, 2, 1 ]; my $y = [ 2, 0, 5, 3, 4, 7, 8, 6 ]; $c = Statistics::RankCorrelation->new( $r, $r); print $c->spearman."\n"; print $c->kendall."\n"; print $c->csim."\n";
La tous va bien. mais tous ce complique dans l'exemple suivant.
Ca m'étonnerait ;)
Tu déclares $x et $y, et tu utilises $r dans ton new, dont on ne voit aucune déclaration dans ton exemple.

Citation:

[CODE]
$ru[++$#ru]=18.2;
$ru[++$#ru]=1.2;
$ru[++$#ru]=15.2;
$ru[++$#ru]=15.2;
$ru[++$#ru]=1.2;
$ru[++$#ru]=100.2;

$ru2[++$#ru2]=128.2;
$ru2[++$#ru2]=14.2;
$ru2[++$#ru2]=153.2;
$ru2[++$#ru2]=10.2;
$ru2[++$#ru2]=19.2;
$ru2[++$#ru2]=10.2;

Drôle de manière d'ajouter des éléments dans une liste.
1- pourquoi ne pas avoir simplement déclaré les tableaux comme dans l'exemple précédent (définition d'une référence à un tableau anonyme) :
Code:

1 2 3 $ru = [ 18.2, 1.2, 15.2, 15.2, 1.2, 100.2 ]; # reference à tableau anonyme @ru = (18.2, 1.2, 15.2, 15.2, 1.2, 100.2); # même chose mais pour un tableau ...
2- Si tu souhaites ajouter un éléments à la fois dans le tableau @ru, pourquoi ne pas simplement utiliser push ? :
Code:

1 2 3 4 push @ru, 18.2; push @ru, 1.2; ...
Citation:

$c = Statistics::RankCorrelation->new( $ru, $ru2);

...

La je comprend pas, est-ce un probleme d'initialisation de mes tableaux, ou la facon dont j'ajoute les données dans les tableaux?

Oui, c'est un problème de déclaration (ou d'usage de la fonction new). La fonction new accepte des références à des tableaux. Or toi, tu définis des tableaux (@ru et @ru2) et tu passes en paramètres des scalaires ($ru, $ru2) que tu n'as par ailleurs pas définis.
Il aurait fallu, soit définir des références à des tableaux anonymes $ru et $ru2 :
Code:

1 2 3 4 5 my $ru; push @$ru, 15.2; ... $c = Statistics::RankCorrelation->new( $ru, $ru2);
ou définir des tableaux @ru et @ru2 et passer en paramètre leur référence :
Code:

1 2 3 4 5 my @ru; push @ru, 15.2; ... $c = Statistics::RankCorrelation->new( \@ru, \@u2);

19/07/2010, 19h19
thibaultG

Citation:

Envoyé par Philou67430

Ca m'étonnerait ;)
Tu déclares $x et $y, et tu utilises $r dans ton new, dont on ne voit aucune déclaration dans ton exemple.[/code]

LOL Une petite erreur :D comme tu t'en douté.

Pour push je connaissais, mais cette autre methode d'ajout etait une tentative desesperé ;).

Ce qui j'ignorais c’était la différence entre l'initialisation d'un tableau avec $ et @ Un grand merci n’étant pas habitué a programmer en perl cette difference m'était inconnu.
20/07/2010, 09h35
Philou67430
En fait, les variables dont le nom commencent par un sigil @ dont des tableaux. Un tableau ne peut contenir QUE des scalaires (c'est à dire des variables dont le nom commence par un sigil $ ; c'est variable ne contiennent qu'une valeur, à l'opposé des tableaux et des tables de hashages qui en contiennent plusieurs).

Mais il existe une méthode des scalaires spéciaux que l'on appelle des références (dans les langages plus classiques comme C, on parlerait de pointeurs), qui peuvent pointer vers (référencer) une table de hashage ou un tableau (voire d'autres objets comme des fonctions, des handles, des objets consacrés par bless, ...). Bref, il est ainsi possible d'imbriquer plusieurs tableaux les uns dans les autres par le biais de références.
Code:

1 2 $tableau = [ 0, 1, 1, 2, 3, 5, 8 ]; # Note la différence [ ] au lieu de ( ) $hashage = { fibo1 => 0, fibo2 => 1, fibo3 => 1, fibo4 => 2 }; # Note la différence { } au lieu de ( )
Une particularité de perl et de définir des objets anonymes (c'est à dire, qu'ils ne sont pas rattachés à un symbole). On peut ainsi créer des tableaux anonymes ou des tables de hashage anonymes (on peut aussi créer des fonctions anonymes : on les appelle alors de closure, fermetures en français). Au lieu d'affecter ces objets anonymes à des variables tableaux et tables de hashage, on n'en récupère la référence que l'on peut alors affecter à un scalaire. C'est ainsi qu'à l'aide de tables de hashage, il est possible d'émuler des structures de données, type de donnée qui n'existe pas nativement dans perl (et donc on n'a pas besoin à vrai dire). Exemple :
Code:

1 2 3 4 @liste_eleve = ( { nom => "Lupin", prenom => "Arsene", classe => "2A" }, { nom => "Steed", prenom => "John", classe => "1S" }, );
La grosse différence entre le tableau (variables @) et la référence à un tableau ($) est dans l'utilisation. Dans le premier cas, il suffit d'utiliser le tableau directement, alors qu'avec la référence, il faut d'aborder déréférencer :
Code:

1 2 3 foreach my $eleve (@liste_eleve) { ... }
mais si l'on avait défini la liste d'élève par une référence à un tableau anonyme :
Code:

1 2 3 4 5 6 7 8 $liste_eleve = [ { nom => "Lupin", prenom => "Arsene", classe => "2A" }, { nom => "Steed", prenom => "John", classe => "1S" }, ]; foreach my $eleve (@$liste_eleve) { ... }
En espérant avoir été suffisamment complet et clair.