perl - 如何在 Perl 中确定祝福引用的类型？

Question

在 Perl 中，对象只是对已被赋予特定类的任何基本 Perl 数据类型的引用。当您在 unblessed 引用上使用 ref() 函数时，您会被告知引用指向的数据类型。但是，当您在祝福引用上调用 ref() 时，您将返回该引用已被祝福的包的名称。

我想知道祝福参考的实际基础类型。我怎样才能确定这一点？

Answer 1

Scalar::Util::reftype()是最干净的解决方案。该Scalar::Util模块在 5.7 版中添加到 Perl 核心，但可用于 CPAN 的旧版本（5.004 或更高版本）。

您还可以使用以下方法进行探测UNIVERSAL::isa()：

$x->isa('HASH')             # if $x is known to be an object
UNIVERSAL::isa($x, 'HASH')  # if $x might not be an object or reference

显然，您还必须检查ARRAY和SCALAR类型。自 Perl 5.003 以来，UNIVERSAL 模块（作为所有对象的基类）一直是核心的一部分。

另一种方法——简单但有点脏——是对引用进行字符串化。假设该类没有重载字符串化，您将得到类似的东西Class=HASH(0x1234ABCD)，您可以对其进行解析以提取底层数据类型：

my $type = ($object =~ /=(.+)\(0x[0-9a-f]+\)$/i);

Answer 2

你可能不应该这样做。对象的底层类型是您不应该混淆的实现细节。你为什么想知道这个？

Answer 3

我对此的第一个想法是：“Perl 中的对象总是哈希引用，那么有什么技巧呢？”

但是，Scalar::Util::reftype 就是答案。感谢您在这里提出问题。

这是证明这一点的代码片段..（以防它对任何人有用）。

$> perl -e '使用严格；使用警告“全部”；
            我的 $x = [1]; 祝福 ($x, "ABC::Def");
            使用 Data::Dumper；打印转储器 $x;
            打印参考（$x）。"\n";
            使用 Scalar::Util "reftype"; 打印 reftype($x) 。"\n"'`

输出：

$VAR1 = 祝福（[
                 1
               ], 'ABC::Def' );
ABC::定义
大批