Message : Not an ARRAY reference, parfois, parfois pas

Version imprimable

13/12/2015, 17h01
alainbb

Message : Not an ARRAY reference, parfois, parfois pas
Bonjour,

Voulant faire un tri schwartzien, j'ai eu comme message "Not an ARRAY reference at Epingle.pm line 850."
J'ai retravailler le code en le minimisant pour chercher l'erreur, et si j'exécute
Code:

1 2 3 4 my @sc= map { [$_, -$_] } (20,23); say @sc; say Dumper @sc; say Dumper sort { $a->[1] <=> $b->[1] } @sc;
dans un petit fichier qui ne fait que ça, j'ai le bon résultat.

Si je l'exécute dans mon programme Kandela (plein de ligne, Moose,...), j'ai le message indiqué, ici, sur la ligne 4.(les 2 premiers say étant bien les mêmes)
J'exécute bien des "sort" ailleurs dans un contexte plus classique sans problème.
J'imagine donc un problème de contexte, mais je ne vois pas par quel bout attaquer le problème.

Une idée ?
13/12/2015, 18h36
Lolo78
Bonjour,

je ne vois rien d'incorrect dans le code que tu as présenté, et je ne vois pas comment il pourrait produire l'erreur que tu mentionnes. Il faudrait que tu montres le bout de code réel produisant cette erreur.

Cela dit, faire une pseudo transformation de Schwartz pour un cas aussi simple me paraît inutilement complexe. Déjà, tu n'as pas besoin de générer un tableau de tableaux, mais peux transformer directement les données en entrée puis en sortie:
Code:

1 2 3 4 DB<1> print Dumper map -$_, sort {$a <=> $b} map -$_, (20,23); $VAR1 = 23; $VAR2 = 20;
L'inversion du signe étant une transformation très peu coûteuse, tu peux aussi le faire directement dans le sort, cela ne pénalisera pas les performances de façon mesurable:
Code:

1 2 3 4 5 DB<2> print join "\n", sort {-$a <=> -$b} (20, 23, 25); 25 23 20
Ou, plus simplement encore, modifier le tri en intervertissant $a et $b:
Code:

1 2 3 4 5 DB<3> print join "\n", sort {$b <=> $a} (20, 23, 25); 25 23 20
ce qui devrait donner a priori le même résultat pour tous les cas de figure auxquels je peux penser.

Ou encore appliquer la fonction reverse au résultat du tri:
Code:

1 2 3 4 5 DB<4> print join "\n", reverse sort {$a <=> $b} (20, 23, 25); 25 23 20
13/12/2015, 19h01
alainbb

Bonjour,

Je me suis mal fait comprendre.

Le code que je donne est en effet correct, et fonctionne si on le met dans un simple fichier qui ne fait que ça. L'exemple que je donne est une simplification à outrance de quelque chose de bien plus compliqué, mais qui fait appel à des objets,...

Mon but n'est donc pas de trier par ordre décroissant, mais de montrer que ce code dysfonctionne dans mon programme, je pense qu'il y a donc un problème de contexte, et je n'ai que ce message d'erreur comme piste.

Entre temps j'ai essayé perl -d, mais sans plus de résultat. Un 's' sur la ligne du "sort" me renvoie la même erreur.

PS : Je précise donc, que c'est bien le même code qui fonctionne dans un simple fichier, et pas dans mon programme.
13/12/2015, 19h17
cmcmc

Citation:

Envoyé par alainbb

Entre temps j'ai essayé perl -d, mais sans plus de résultat. Un 's' sur la ligne du "sort" me renvoie la même erreur.

bizarre... Essaie peut-être de rajouter une impression de debug dans le corps du sort pour voir ce qu'il reçoit dans $a et $b :

Code:

... sort { print Dumper($a); print Dumper($b); ... } ...

J'ai bien compris, mais je ne peux pas trop t'aider sans voir le vrai code produisant l'erreur.

Citation:

Envoyé par alainbb

Entre temps j'ai essayé perl -d, mais sans plus de résultat. Un 's' sur la ligne du "sort" me renvoie la même erreur.

Retente en mode debug comme ceci: juste avant d’exécuter la ligne comportant le sort en mode debug, fait un "x" sur le tableau pour voir sa structure, ou mieux sur une référence vers ce tableau. Et, si ça ne te donne pas l'explication, poste le résultat.

Exemple de session de débogage avec le bout de code qui tu as posté dans le premier message:
Code:

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 $ perl -dE ' > my @sc= map { [$_, -$_] } (20,23); > say @sc; > say Dumper @sc; > say Dumper sort { $a->[1] <=> $b->[1] } @sc; > ' Loading DB routines from perl5db.pl version 1.33 Editor support available. Enter h or `h h' for help, or `man perldebug' for more help. main::(-e:2): my @sc= map { [$_, -$_] } (20,23); DB<1> s main::(-e:2): my @sc= map { [$_, -$_] } (20,23); DB<1> s main::(-e:2): my @sc= map { [$_, -$_] } (20,23); DB<1> s main::(-e:3): say @sc; DB<1> s ARRAY(0x60005f250)ARRAY(0x60005f2e0) main::(-e:4): say Dumper @sc; DB<1> s main::(-e:5): say Dumper sort { $a->[1] <=> $b->[1] } @sc; DB<1> x @sc 0 ARRAY(0x60005f250) 0 20 1 '-20' 1 ARRAY(0x60005f2e0) 0 23 1 '-23' DB<2> x \@sc; 0 ARRAY(0x6000674c0) 0 ARRAY(0x60005f250) 0 20 1 '-20' 1 ARRAY(0x60005f2e0) 0 23 1 '-23' DB<3>
La deuxième commande en rouge ci-dessus est l'équivalent de ce que tu dois faire avec ton programme.

14/12/2015, 11h54
cmcmc

Citation:

Envoyé par cmcmc

bizarre... Essaie peut-être de rajouter une impression de debug dans le corps du sort pour voir ce qu'il reçoit dans $a et $b :

Code:

... sort { print Dumper($a); print Dumper($b); ... } ...

En fait si tu travailles sur une grosse liste et que le problème est intermittent essaie plutôt

Code:

... sort { if (!ref $a or ref $a ne 'ARRAY' or !ref $b or ref $b ne 'ARRAY') { die "\$a: ", Dumper($a), "\$b: ", Dumper($b) } ... } ...

qui devrait être plus facile à exploiter...

Bonjour,

En mode debug, j'ai le même résultat, par contre un say Dumper dans le "sort" me donne en effet quelque chose d'assez bizarre.
Il me donne (en normal ou en debug)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 $VAR1 = [ 20, -20 ]; $VAR1 = bless( { 'circleType' => 'arc', 'color2' => 'red', 'arcs' => [ ... 'width' => 3, 'ordre_tri' => 1 }, 'Epingle' ); Tk::Error: Not an ARRAY reference at Epingle.pm line 850.
(le Tk::Error peut-être ignoré, il apparait seulement si je provoque l'erreur via l'interface graphique)
Le Dumper($b) renvoie donc, non pas une array, mais un objet Epingle. J'utilise Moose, et mon code se trouve dans Epingle.pm.
J'ai déjà eu un problème similaire mais je n'avais pas réussi à le minimiser comme celui-ci, et je l'ai finalement contourné.

Voici mon code, il est pas des plus clean (si mon nouveau serveur Raspberry daigne ne pas planter)
http://www.barbason.be/bug/
vous lancer le programme avec ./kandela.pl -file bruxelles.lace
Vous verrez 25 cercles reliés entre eux. Faites un "Ctrl-e" (erase), un click-gauche souris-glisser sur une cercle, qui devrait disparaitre et le message d'erreur honni apparaître. Ligne 847-850 dans Epingle.pm
Bon, je vais essayer de cibler l'erreur, je peux déjà dire que si je mets les 4 lignes dans le main (kandela.pl/sub init), elles fonctionnent correctement.

Os : Debian Jessie

Citation:

Envoyé par alainbb

Voici mon code...

Sans regarder plus loin, commence par remplacer dans le fragment ci-dessous les utilisations de $b par $bbb ou autre chose (en tous cas *pas* $b) et regarde si ça change quelque chose. $a et $b ne fonctionnent dans le sort que si ce sont des variables globales (au niveau package). Ici tu déclares un my $b qui va masquer la variable globale avec des effets, disons, inattendus.

Code:

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
51
52
53
54
55
56
57
58
59
60
after supprime => sub {
    my $self=shift;
    $::pat->deselectAll;
    my $h=find($self->center->addi(Point->new(0,-80)));
    $bord{$h->id}=1 if ($h);
    map {$::pat->get_el($_)->supprime} $h->all_cO()    if ($h) ;
    my $hg=find($self->center->addi(Point->new(-40,-40)));
    $bord{$hg->id}=1 if ($hg);
    map {$::pat->get_el($_)->supprime} $hg->all_cO()    if ($hg) ;
    my $hd=find($self->center->addi(Point->new(40,-40)));
    $bord{$hd->id}=1 if ($hd);
    map {$::pat->get_el($_)->supprime} $hd->all_cO()    if ($hd) ;
    my $b=find($self->center->addi(Point->new(0,80)));
    $bord{$b->id}=1 if ($b);
    map {$::pat->get_el($_)->supprime} $b->all_cE()    if ($b) ;
    my $bg=find($self->center->addi(Point->new(-40,40)));
    $bord{$bg->id}=1 if ($bg);
    map {$::pat->get_el($_)->supprime} $bg->all_cE()    if ($bg) ;
    my $bd=find($self->center->addi(Point->new(40,40)));
    $bord{$bd->id}=1 if ($bd);
    map {$::pat->get_el($_)->supprime} $bd->all_cE()    if ($bd) ;
    my $g=find($self->center->addi(Point->new(-80,0)));
    $bord{$g->id}=1 if ($g);
    my $d=find($self->center->addi(Point->new(80,0)));
    $bord{$d->id}=1 if ($d);
    $self->hidden();
    say Dumper %bord;
    say "23 13 11 1 19 8 14 20";
    # recherch en haut a gauche
    my ($debut)=keys(%bord);
    foreach my $id (keys(%bord)) {
         if ($::pat->get_el($id)->center->y<$::pat->get_el($debut)->center->y) {
            $debut=$id;
        } elsif
         ($::pat->get_el($id)->center->y==$::pat->get_el($debut)->center->y &&
        $::pat->get_el($id)->center->x<$::pat->get_el($debut)->center->x) {
            $debut=$id;
        }
    }
    say "debut : $debut";
    my ($fin)=keys(%bord);
    foreach my $id (keys(%bord)) {
         if ($::pat->get_el($id)->center->y>$::pat->get_el($fin)->center->y) {
            $fin=$id;
        } elsif
         ($::pat->get_el($id)->center->y==$::pat->get_el($fin)->center->y &&
        $::pat->get_el($id)->center->x>$::pat->get_el($fin)->center->x) {
            $fin=$id;
        }
    }
    say "fin   : $fin";
#say map { $_->[0] }
say  keys(%bord);
say Dumper (20,23);
#my  @sc=   map { [$_, $::pat->get_el($_)->center->y] } (20,23);
my  @sc=   map { [$_, -$_] } (20,23);
say @sc;
say Dumper @sc;
say Dumper sort { print Dumper($a); print Dumper($b);$a->[1] <=> $b->[1] } @sc;
};

C'est le même problème (en moins pernicieux parce que toi au moins tu as une erreur ;) ) que ci-dessous :

Code:

1
2
3
4
5
6
7
8
9
10
Taisha:~/perl/forum $ perl -E 'my $b = 2; say for sort { $a <=> $b } reverse 0 .. 7'
2
1
0
3
4
5
6
7
Taisha:~/perl/forum $

alternativement, tu peux peut-être explicitement déclarer que tu utilises les variables globales $a et $b dans le corps du sort avec la déclaration our ($a,$b);(mais je ne jurerais pas que ça marche tout le temps et pour toutes les versions de perl...) :

Code:

1
2
3
4
5
6
7
8
9
10
Taisha:~/perl/forum $ perl -E 'my $b = 2; say for sort { our ($a, $b); $a <=> $b } reverse 0 .. 7'
0
1
2
3
4
5
6
7
Taisha:~/perl/forum $

tu peux aussi définir une fonction de tri explicite (qu'il faut me semble-t-il prototyper avec ($$) ) :

Code:

1
2
3
4
5
6
7
8
9
10
Taisha:~/perl/forum $ perl -E 'my $b = 2; sub sorter($$) { $_[0] <=> $_[1] }; say for sort sorter reverse 0 .. 7'
0
1
2
3
4
5
6
7
Taisha:~/perl/forum $

15/12/2015, 02h11
cmcmc

Pour info, il existe (au moins) une règle pour Perl::Critic qui permet de détecter et prévenir les utilisations dangereuses de $a et $b (non testé) : DollarAB
15/12/2015, 07h45
alainbb

C'était bien my $b. C'est vrai que ces variables $a,$b m'ont paru toujours suspectes... Ca m'apprendra à résumé $bas en $b...

Dire que j'ai lu PBP (en français je sais plus son titre), que j'utilisAIS perlcritic... va falloir m'y remettre.

Un grand merci.
15/12/2015, 11h07
Lolo78
Citation:

Envoyé par cmcmc

Sans regarder plus loin, commence par remplacer dans le fragment ci-dessous les utilisations de $b par $bbb ou autre chose (en tous cas *pas* $b) et regarde si ça change quelque chose. $a et $b ne fonctionnent dans le sort que si ce sont des variables globales (au niveau package). Ici tu déclares un my $b qui va masquer la variable globale avec des effets, disons, inattendus.

Bien vu. ++
Citation:
Envoyé par cmcmc

C'est le même problème (en moins pernicieux parce que toi au moins tu as une erreur ;) ) que ci-dessous :

Code:

1 2 3 4 5 6 7 8 9 Taisha:~/perl/forum $ perl -E 'my $b = 2; say for sort { $a <=> $b } reverse 0 .. 7' 2 1 0 3 4 5 6 7
Curieusement, j'ai pour ma part une erreur avec ce code (version Perl: 5.14):
Code:

1 2 3 $ perl -E 'my $b = 2; say for sort { $a <=> $b } reverse 0 .. 7' Can't use "my $b" in sort comparison at -e line 1.
Il est possible de s'en débarrasser et d'obtenir le bon résultat avec ceci:
Code:

1 2 3 4 5 6 7 8 9 10 $ perl -E 'local $b = 2; say for sort { $a <=> $b } reverse 0 .. 7' 0 1 2 3 4 5 6 7
Mais il est largement préférable de choisir un autre nom de variable.

EDIT: j'ai la même erreur même en Perl 5.10 sur un vieux serveur AIX:
Code:

1 2 3 $perl -E 'my $b = 2; say for sort { $a <=> $b } reverse 0 .. 7' Can't use "my $b" in sort comparison at -e line 1.

Citation:
Envoyé par Lolo78
Curieusement, j'ai pour ma part une erreur avec ce code (version Perl: 5.14):
Code:

1 2 3 $ perl -E 'my $b = 2; say for sort { $a <=> $b } reverse 0 .. 7' Can't use "my $b" in sort comparison at -e line 1.
Bonne remarque, :plusser:. Ca a effectivement été transformé en warning à partir de la version 5.18 (et il faut donc les activer pour le voir ;) ) :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Taisha:~/perl/forum $ perl -v | head -2 This is perl 5, version 22, subversion 0 (v5.22.0) built for MSWin32-x86-multi-thread-64int Taisha:~/perl/forum $ perl -wE 'my $b = 2; say for sort { $a <=> $b } reverse 0 .. 7' "my $b" used in sort comparison at -e line 1. 2 1 0 3 4 5 6 7 Taisha:~/perl/forum $
extrait du perldelta pour 5.18 :
The 'Can't use "my %s" in sort comparison' error has been downgraded to a
warning, '"my %s" used in sort comparison' (with 'state' instead of 'my'
for state variables).  In addition, the heuristics for guessing whether
lexical $a or $b has been misused have been improved to generate fewer
false positives.  Lexical $a and $b are no longer disallowed if they are
outside the sort block.  Also, a named unary or list operator inside the
sort block no longer causes the $a or $b to be ignored [perl #86136].
Mais du coup, le code d'alainbb devrait au moins produire un warning, or je n'en vois pas apparaître :weird:... Ceci dit je n'ai pas vérifié si les warnings n'étaient pas trappés quelque part dans son programme, ou par Moose, ou par Tk. De plus il me semble que ce warning est normalement émis par le tokenizer perl, qui est d'une complexité confondante, et il est aussi possible qu'il n'arrive tout simplement pas à l'émettre dans ce cas particulier...

Je me demande du coup si Perl::Critic parviendra de son côté à détecter le problème mais je n'ai pas le courage de tester... Alainbb, si tu t'y remets, tu nous dira :D :zoubi: ?

16/12/2015, 08h10
Lolo78

Citation:

Envoyé par cmcmc

Bonne remarque, :plusser:. Ca a effectivement été transformé en warning à partir de la version 5.18 (et il faut donc les activer pour le voir ;) ) :

OK, merci de l'info ++, j'avais initialement décidé de tester le bout de code précisément pour vérifier si les warnings détectaient le problème et ce qu'ils disaient, mais je n'ai pas pu le faire vu que j'obtenais une erreur.
16/12/2015, 21h36
alainbb

Perlcritic ne reconnait pas l'erreur.
Damned,... encore raté.
20/12/2015, 23h18
cmcmc
Citation:

Envoyé par cmcmc

De plus il me semble que ce warning est normalement émis par le tokenizer perl, qui est d'une complexité confondante, et il est aussi possible qu'il n'arrive tout simplement pas à l'émettre dans ce cas particulier...

En approfondissant, il s'avère effectivement que le warning n'est émis que pour des cas triviaux. Par exemple
Code:

1 2 3 4 Taisha:~/perl/forum $ perl -MData::Dump -wE 'my $b = "B"; dd sort { $a cmp $b } reverse "A" .. "D"' "my $b" used in sort comparison at -e line 1. ("B", "A", "C", "D") Taisha:~/perl/forum $
mais dès qu'on complique un peu l'expression de comparaison le warning disparaît. Par exemple
Code:

1 2 3 Taisha:~/perl/forum $ perl -MData::Dump -wE 'my $b = "B"; dd sort { my ($aa,$bb) = ($a,$b); $aa cmp $bb } reverse "A" .. "D"' ("B", "A", "C", "D") Taisha:~/perl/forum $
ou bien
Code:

1 2 3 Taisha:~/perl/forum $ perl -MData::Dump -wE 'my $b = "B"; dd sort { lc $a cmp lc $b } reverse "A" .. "D"' ("B", "A", "C", "D") Taisha:~/perl/forum $
malheureusement le fait de déréférencer $a ou $b prévient également la production du warning:
Code:

1 2 3 Taisha:~/perl/forum $ perl -MData::Dump -wE 'my $b = ["B", "B"]; dd map $_->[0] => sort { $a->[1] cmp $b->[1] } map [$_,$_] => reverse "A" .. "D"' ("B", "A", "C", "D") Taisha:~/perl/forum $
Du coup le seul moyen de se protéger semble être d'ajouter our($a,$b) au début du bloc du sort :
Code:

1 2 3 Taisha:~/perl/forum $ perl -MData::Dump -wE 'my $b = ["B", "B"]; dd map $_->[0] => sort { our ($a,$b); $a->[1] cmp $b->[1] } map [$_,$_] => reverse "A" .. "D"' ("A" .. "D") Taisha:~/perl/forum $
Cela a jusqu'à présent fonctionné sur tous les exemples que j'ai testés, et sur un large éventail de versions de perl (au moins depuis 5.10). Je ne recommande pas forcément de l'ajouter systématiquement, mais c'est peut-être un truc à garder en tête lorsqu'on a un doute sur un sort...
21/12/2015, 08h31
Lolo78
Intéressant.

Si l'on doit vraiment utiliser une variable $a ou $b, ceci fonctionne, comme je l'ai déjà dit:
Code:

1 2 $ perl -E 'local $b = 2; say for sort { $a <=> $b } reverse 0 .. 7'
Mais comme je ne vois pas pourquoi on devrait vraiment utiliser ainsi une variable $b, je dirais que le mieux est simplement de l'éviter en employant un autre nom de variable.

La situation est différente si l'on désire utiliser les propriétés particulières de $a et $b pour autre chose qu'un tri, par exemple pour implémenter une fonction de type reduce, tout en se prémunissant du risque de perturber un tri. Alors l'emploi de local $a ou local $b peut être réellement utile.

Citation:
Envoyé par Lolo78
Intéressant.

Si l'on doit vraiment utiliser une variable $a ou $b, ceci fonctionne, comme je l'ai déjà dit:
Code:

1 2 $ perl -E 'local $b = 2; say for sort { $a <=> $b } reverse 0 .. 7'
Ca ne fonctionne pas mieux que de ne pas utiliser local. Ca va juste changer la portée dynamique de la variable globale (i.e. de package) $b, avec potentiellement des effets pervers ailleurs. $a et $b sont des exceptions, et n'ont pas besoin d'être déclarées pour passer les strictures :
Code:

1 2 3 4 5 6 Taisha:~/perl/forum $ perl -Mstrict -wE '$b = 1; say for sort { $a <=> $b } reverse 0 .. 3' 0 1 2 3 Taisha:~/perl/forum $
de plus sort peut être utilisé de manière imbriquée :
Code:

1 2 3 4 5 Taisha:~/perl/forum $ perl -MData::Dump -Mstrict -wE 'sub min { (sort { $a <=> $b } @_)[0] } dd sort { min(@$a) <=> min(@$b) } [1,2,3], [0,1], [3]' ([0, 1], [1, 2, 3], [3]) Taisha:~/perl/forum $ perl -MData::Dump -Mstrict -wE 'dd sort { (sort { $a <=> $b } @$a)[0] <=> (sort { $a <=> $b } @$b)[0] } [1,2,3], [0,2], [3]' ([0, 2], [1, 2, 3], [3]) Taisha:~/perl/forum $
et sa cohabitation avec List::Util::reduce ne pose pas de problème particulier :
Code:

1 2 3 4 5 Taisha:~/perl/forum $ perl -MData::Dump -Mstrict -MList::Util=reduce -wE 'sub sum { reduce { $a + $b } 0, @_ } dd sort { sum(@$a) <=> sum(@$b) } [1,2,3], [0,1], [3]' ([0, 1], [3], [1, 2, 3]) Taisha:~/perl/forum $ perl -MData::Dump -Mstrict -MList::Util=reduce -wE 'dd sort { reduce { $a + $b } 0, @$a <=> reduce { $a + $b } 0, @$b } [1,2,3], [0,1], [3]' ([0, 1], [3], [1, 2, 3]) Taisha:~/perl/forum $
c'est juste l'utilisation de variables $a et $b lexicales (i.e. déclarées avec my) qui pose problème. Donc tu as raison, la meilleure option est de ne jamais le faire :mrgreen: