Discussion :

[Dra_Gun]

Bonjour,

dans un fichier de config, j'ai une variable globale du style:

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
Set(%mailParPlaque, (
#Mainteneurs
'14' => {
                'CHARENTES MARITIMES (17)' => ['mnt-cha','rol-cha'],
                'BACKBONE' => ['mnt-idf','rol-idf'],
                'HAUT-RHIN (68)' => ['mnt-hrh','rol-hrh'],
                'TOURS(37)' => ['mnt-tou','rol-tou'],
                'VIENNE (86)' => ['mnt-vie','rol-vie'],
                'regexp' => '^(mnt|rol)'
        },
#blabla
'15' => {
                'CHARENTES MARITIMES (17)' => [blabla],
                'BACKBONE' => [blabla],
                'HAUT-RHIN (68)' => [blabla],
                'TOURS(37)' => [blabla],
                'VIENNE (86)' => [blabla],
                'regexp' => '^blabla'
        }
));

affectation d'une variable:

Code :

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

1
2
my @people = undef; #people to add
@people = @{$mailParPlaque{$id_queue}{$plaque}};

ça, ca fonctionne bien
mais si par exemple ma variable $plaque est VENDEE (85), ca me génère une erreur. (la queue ne peut pas ne pas exister)

du coup j'aimerais faire un truc du genre

Code :

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

@people = @{$mailParPlaque{$id_queue}{$plaque}} // "nada";

le souci étant que @people n'est pas un scalaire
du coup ca me renvoie:
@people
$VAR1 = 2;

Avez-vous une idée de comment définir @people si la variable globale %mailParPlaque ne contient pas $plaque?

Merci d'avance,

[Lolo78]

Pas sûr d'avoir bien compris ce que tu veux faire, mais peut-être que cela suffirait à résoudre ton problème:

Code :

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

@people = @{$mailParPlaque{$id_queue}{$plaque}} // ("nada");

[Dra_Gun]

Hello,

en gros, je veux que si la première valeur n'existe pas, la valeur "nada" soit affectée.

l'opérateur // ne fonctionne pas sur des listes, j'avais déjà essayé ton idée

[Philou67430]

Je ne pense pas que ceci fonctionne, Lolo, car le premier déréférencement en @{} échouera du fait que la clé "Vendée (85)" n'existe pas, et retourne donc undef AVANT le dérérencement en tableau. Mais en fait, après test, ce n'est pas ce qui gêne (il semble que déréférencer en tableau la valeur undef retourne un tableau vide ou undef). Le problème vient du fait que l'opérateur // est un opérateur scalaire, et qu'il prend comme opérande (et retourne comme résultat) des scalaires. Donc si la clé existe, il retourne la taille du tableau, sinon, "nada".

Du coup, je verrais plutôt ceci :

Code :

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

1
2
 
@people = exists $mailParPlaque{$id_queue}{$plaque} ? @{$mailParPlaque{$id_queue}{$plaque}} : ("nada");

(on peut éviter de répéter la référence du tableau en passant par une variable my intermédiaire).

[Dra_Gun]

Yes ca fonctionne!
Merci beaucoup!!

[Lolo78]

Yes, en effet, je n'ai jamais utilisé l'opérateur // (je suis scotché avec des versions trop anciennes de Perl), je me disais juste que ça pouvait peut-être marcher comme cela.

Et je me suis fait déjà avoir plusieurs fois avec l'auto-vivification d’éléments de hash n'existant pas mais devenus définis par le simple fait de tester leur existence (franchement, pour moi, c'est un bug de Perl), je pense que l'utilisation de la fonction exists dans un opérateur ternaire proposée par Philou est sans doute une meilleure solution, bien plus sûre.

[Philou67430]

L'auto-vivification est une fonctionnalité de perl (pas un bug) dont l'usage souvent non désiré du programmeur, génère des bugs dans l'application.

Cela dit, je viens de vérifier que même en utilisant exists, l'auto-vivification est active, ce qui m'interpelle quelque peu :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
use strict;
use warnings;
my %h;
if (exists $h{a}->{b}) {
  say "Auto-vivification with exists";
}
if (defined $h{A}{B}) {
  say "Auto-vivication with defined";
}
use Data::Dumper;
print Data::Dumper->Dump([\%h], [qw(*h)])

Pour information, après installation du module CPAN autovivification, il est possible de désactiver cette fonctionnalité en ajoutant une ligne :

Code :

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

no autovivification;

Dommage que ce module ne soit pas dans le Core.

[Lolo78]

J'avais récemment un traitement qui faisait ce qui suit:

Code :

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

if (exists $liste{$segment}{$presta}) { # ... }

Le simple fait de faire le test créait l'enregistrement dans le hash, ce qui fait que lors du test suivant avec les mêmes valeurs, le "if" renvoyait vrai et le code gouverné par le "if" s'exécutait alors qu'il n'aurait pas dû. Pour moi, c'est un bug dans le sens que l'auto-vivification ne devrait pas se faire sur un simple test d'existence.

Larry Wall, Tom Christiansen et Jon Orwant écrivent à ce sujet (3ème édition de Programmation en perl", p. 232 de l'édition française):

"(Le fait que cela définisse (...) dans un contexte de rvalue devrait être considéré comme un bogue. Nous corrigerons peut-être cela un jour.)"

A ce jour, ce n'est à ma connaissance toujours pas corrigé.

Dans mon cas, en remplaçant le code ci-dessus par:

Code :

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

if (defined $liste{$segment}{$presta}) { # ... }

j'ai supprimé le problème, parce que même après avoir testé la simple existence, le hash existe pour ce couple de valeurs, mais sa valeur n'est pas définie. C'est un peu dommage parce que dans un tel contexte, la fonction exists est un peu plus rapide que la fonction defined (pas très grave quand même).

[Philou67430]

Je suis d'accord pour le cas de la vérification d'existence.