Vérifiez si la valeur générée aléatoirement existe déjà dans le hachage

Question

Si j'ai un hachage Perl et que j'ai généré une valeur numérique de façon aléatoire, comment puis-je obtenir mon code pour vérifier si la valeur générée aléatoirement existe déjà dans le hachage?

Answer 1

Utilisez le exists built-in.

Pour vérifier les clés:

my %foo = (bar => 1); 
if (exists $foo{foo}) { 
    print "key foo exists"; 
} 
if (exists $foo{bar}) { 
    print "key bar exists"; 
} 

Ce code imprimera

key bar exists 

Pour vérifier les valeurs, vous devez d'abord reverse le hachage. Rappelez-vous que les hachages sont des listes, donc si elles sont inversées, toutes les clés deviennent des valeurs. Vous pouvez avoir des données si une valeur existe déjà plus d'une fois, mais si tout ce que vous voulez savoir est de savoir si une valeur existe, ce n'est pas pertinent.

my %foo = (bar => 1, baz => 2, qrr => 1); 
my %reversed = reverse %foo; 
if (exists $reversed{1}) { 
    print "value 1 exists"; 
} 
if (exists $reversed{3}) { 
    print "value 3 exists"; 
} 

Cela imprime

value 1 exists