如何在Perl中测试"某些东西"是否为哈希？

Question

我从另一个函数接收哈希哈希,哈希哈希的一些元素可以是另一个哈希.我如何测试以查看某些内容是否为哈希？

Answer 1

根据您的需要,您需要使用ref或reftype(在Scalar::Util核心模块中).如果引用是一个对象,ref将返回该对象的类而不是底层引用类型,reftype将始终返回底层引用类型.

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

使用ref功能:

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

我一直在使用isa,但如果被测试的东西不是对象(或者可能不是对象),则需要将其称为函数UNIVERSAL::isa:

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