Scalar::Util 与 ref 函数

Question

内置的 ref($object) 和 Scalar::Util blessed($object) 有什么区别？其中一个比另一个更受青睐吗？

use strict;
use warnings;

use Scalar::Util qw(blessed isvstring);

my $object = foo->new();

print "Object is a " . blessed($object) . "\n";
print "Object is a " . ref($object) . "\n";

my $version = 5.00.03;

print "Version is a " . ref(\$version) . "\n";
if (isvstring($version)) {
    print "Version is a VSTRING\n";
}

package foo;
sub new {
    my $class = shift;
    my $self = {};

    bless($self, $class);
    return $self;
}

Answer 1

根据 POD，blessed() 仅适用于受祝福的引用（例如传递给 bless() 调用的引用）。

它对其他所有内容都返回 undef，包括哈希/数组引用，其中 ref() 返回 HASH/ARRAY （并且perldoc ref 中描述的一堆其他类型。要获取引用类型，您当然可以调用Scalar::Util::reftype。

至于是否应该使用一个而不是另一个，我认为这很大程度上取决于逻辑是什么。

• 如果您仅想要将真正的受祝福的引用与其他内容区分开来，blessed() 提供了一种比采用 ref 更简洁的方法，然后验证该值不是由 unblessed 引用返回的标准值。

  我的 $ref_type = ref($my_ref);
  打印“使用参考：”；
  如果（$ref_type
         && $ref_type ne ref({})
         && $ref_type ne ref([])
         && $ref_type ne“标量”
         # 也可以使用包含 ref() 所有允许值的哈希值
         && $ref_type !~ /^(CODE|REF|GLOB|...)$) { 
      print "我是 $ref_type\n 类的对象";
  } 别的 {
      print "我是 $ref_type\n 类型的引用";
  }
  
  
  # 对比... 
  
  
  打印“使用SCALAR_UTIL：”；
  我的 $ref_type = 祝福($my_ref);
  打印 $ref_type ？ “我是 $ref_type\n 类的对象”
                  ：“我是一个类型的参考”。 reftype($my_ref) 。 “\n”；
  

• 如果您需要区分受祝福的引用和不同的受祝福的引用，那么单个 ref() 调用比 blessed 和 的组合更简洁reftype。

• 正如 Eric Strom 的评论中所指出的，两种方法之间存在实际功能差异的一个边缘情况是，当有人创建一个与 ref() 之一匹配的类时 硬编码值（例如 bless [], 'HASH' - 在这种情况下它们要么太笨，要么太聪明）。

  my $sssft = bless [], 'HASH'; # sssft = 有人_应该_受苦_为此
  ref_description_using_ref($sssft);
  ref_description_using_scalar_util($sssft);
  
  
  ＃ 输出：
  USING REF：我是 HASH 类型的引用
  使用 SCALAR_UTIL：我是 HASH 类的对象
  

免责声明：根据文档，当参数是祝福到类中的引用时（例如，它返回类名），两者之间应该没有区别。但我还没有检查“Scalar::Util”源来确认。