Discussion :

[gobgob]

Bonjour,

J'ai un hachage dans lequel une clé correspond à une liste :

Code :

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

1
2
3
4
5
6
7
8
 
my %all;
 
push %all{$TEST_NAME}, $TOT_RES;
push %all{$TEST_NAME}, $RET_VAL;
push %all{$TEST_NAME}, $STD_ERR;
push %all{$TEST_NAME}, $STD_OUT;
push %all{$TEST_NAME}, $TEST_DESC;

J'obtiens cette erreure :

Code :

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

1
2
 
syntax error at ./checker.pl line 285, near "%all{"

Ce qui correspond au tout premier push. Je subodore un probleme d'initialisation mais même si c'est le cas je ne vois pas bien comment y remédier.

[pospos]

ce que tu cherche à faire (si j'ai bien compris), c'est ca:

Code :

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

1
2
3
4
5
6
 
my %all;
$all{$TEST_NAME} = [];
push @{$all{$TEST_NAME}}, $TOT_RES;
push @{$all{$TEST_NAME}}, $RET_VAL;
...

ou, plus simplement:

Code :

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

1
2
3
 
my %all;
$all{$TEST_NAME} = [$TOT_RES, $RET_VAL, $STD_ERR, $STD_OUT, $TEST_DESC];

ce qu'il faut garder en tete c'est qu'une valeur de hash ne pourra pas etre autre chose qu'un scalar. Donc si l'on veut mettre un array dans un hash il faut le faire sous forme de scalar, reference de array

[gobgob]

Merci de la réponse !

J'ai cependant un problème.
Maintenant que les données sont dans le hachage.

est il correct de faire :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
while (($clef, @list) = each %all)
    {
        print "Test name                      : $clef\n";
        print "Details                           : $list[0]\n";
        print "Comparison of stdout        : $list[1]\n";
        print "Comparison of stderr         : $list[2]\n";
        print "Comparison of return value : $list[3] should be \n";
        print "Result                             : $list[4]\n";
    }

J'ai en effet comme résultat :

Code :

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

1
2
3
4
5
6
7
8
9
 
[lucifer]/u/a1/varlet_s/SVN/42sh/de-gor_f-42sh/check > ./checker.pl -e Builtins -n                   [Last Exit: KO]
Test name                  : lol2
Details                    : ARRAY(0x8137528)
Comparison of stdout       :
Comparison of stderr       :
Comparison of return value :  should be 0
Result                     :
1 successful tests on 3 tests

Apres utilisation de Dumper j'ai :

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
 
$VAR1 = 'lol2';
$VAR1 = [
          '# pouet
',
          'KO',
          'KO',
          'KO',
          'OK'
        ];
Test name                  : lol2
Details                    : ARRAY(0x818c600)
Comparison of stdout       :
Comparison of stderr       :
Comparison of return value :  should be 0
Result                     :
1 successful tests on 3 tests

[gobgob]

Ok j ai trouvé en fait, @list devait etre declaré en $list et ensuite j ai fait des $list->[x] pour acceder aux elements.

Merci de ton aide en tout cas !