perl – 我如何获得祝福参考的类型？ (ARRAY | HASH |标量)

我通过了参考,我想知道它的类型.以此目的,
“ref”适用于未经处理的引用,但是在返回的祝福引用上
它受祝福的包装名称.

$a=[];
     print ref $a;

ARRAY

bless $a,'mytype';
     print ref $a;

mytype

我怎样才能得到这个类型？

解决方法

use Scalar::Util 'reftype';
print reftype bless {}; # HASH