Wie kann ich testen, dass "etwas" ein Hash in Perl ist?

Question

Ich erhalte einen Hash von Hashes von einer anderen Funktion, und einige Elemente des Hashs von Hashes können ein anderer Hash sein. Wie kann ich testen, ob etwas ein Hash ist?

Answer 1

Je nachdem, was Sie wollen, Sie ref oder reftype (das ist in Scalar::Util, ein Kernmodul) verwendet werden müssen. Wenn die Referenz ein Objekt ist, gibt ref die Klasse des Objekts anstelle des zugrunde liegenden Referenztyps zurück, reftype gibt immer den zugrunde liegenden Referenztyp zurück. obwohl

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

Verwenden ref Funktion:

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); 

* overload durch

Sie die letzte wahrscheinlich nicht brauchen.

siehe Params::Util

Answer 4

ich immer isa verwendet haben, aber wenn die Sache geprüft wird kein Objekt ist (oder auch nicht ein Objekt sein), können Sie es wie die Funktion UNIVERSAL::isa aufrufen müssen:

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