¿Cómo puedo probar que "algo" es un hash en Perl?

Question

Estoy recibiendo un hash de hashes de otra función, y algunos elementos del hash de hash pueden ser otro hash. ¿Cómo puedo probar para ver si algo es un hash?

Answer 1

Dependiendo de lo que quiere usted tendrá que utilizar ref o reftype (que está en Scalar::Util, un módulo básico). Si la referencia es un objeto, ref devolverá la clase del objeto en lugar del tipo de referencia subyacente, reftype siempre devolverá el tipo de referencia subyacente.

if (ref $var eq ref {}) { 
    print "$var is a hash\n"; 
} 

use Scalar::Util qw/reftype/; 

if (reftype $var eq reftype {}) { 
    print "$var is a hash\n"; 
} 

Answer 2

Uso ref función:

ref($hash_ref) eq 'HASH' ## $hash_ref is reference to hash 
ref($array_ref) eq 'ARRAY' ## $array_ref is reference to array 

ref($hash{$key}) eq 'HASH' ## there is reference to hash in $hash{$key} 

Answer 3

use Params::Util qw<_HASH _HASH0 _HASHLIKE>; 

# for an unblessed hash with data 
print "$ref is a hash\n" if _HASH($ref); 
# for an unblessed hash empty or not 
print "$ref is a hash\n" if _HASH0($ref); 
# for a blessed hash OR some object that responds as a hash* 
print "$ref is hashlike\n" if _HASHLIKE($ref); 

* a través overload

Es probable que no necesita la última, sin embargo.

ver Params::Util

Answer 4

Siempre he usado isa, pero si lo que se está probando no es un objeto (o puede que no sea un objeto), es necesario llamar a la función UNIVERSAL::isa:

if (UNIVERSAL::isa($var, 'HASH')) { ... }