Как определить тип блаженной ссылки в Perl?

Question

В Perl объект является лишь ссылкой на любой из базовых типов данных Perl, которые были благословлены в конкретном классе. Когда вы используете функцию ref() на беспредметной ссылке, вам сообщают, к какому типу данных относятся контрольные точки. Однако, когда вы вызываете ref() на блаженной ссылке, вы возвращаете имя пакета, в который была включена эта ссылка.

Я хочу знать фактический базовый тип благословенной ссылки. Как я могу это определить?

Answer 1

Scalar::Util::reftype() - самое чистое решение. Модуль Scalar::Util был добавлен в ядро ​​Perl в версии 5.7, но доступен для более старых версий (5.004 или новее) из CPAN.

Вы также можете исследовать с 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 типов. Модуль UNIVERSAL (который служит базовым классом для всех объектов) был частью ядра с Perl 5.003.

Другой способ - легкий, но немного грязный - это подкрепить ссылку. Если предположить, что класс не перегружена stringification вы получите обратно что-то напоминающее Class=HASH(0x1234ABCD), который можно разобрать, чтобы извлечь базовый тип данных:

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

Answer 2

И моя первая мысль об этом была: «Объекты в Perl всегда хеш-ссылки, так что взломать?»

Но, Scalar :: Util :: reftype - это ответ. Спасибо, что поставили вопрос здесь.

Это фрагмент кода, подтверждающий это. (В случае, если это кому-то полезно).

 
$> perl -e 'use strict; use warnings "all"; my $x = [1]; bless ($x, "ABC::Def"); use Data::Dumper; print Dumper $x; print ref($x) . "\n"; use Scalar::Util "reftype"; print reftype($x) . "\n"'` 

Выход:

 
$VAR1 = bless([ 
       1 
       ], 'ABC::Def'); 
ABC::Def 
ARRAY 

Answer 3

Вы, вероятно, не должны делать это. Основной тип объекта - это деталь реализации, с которой вам не следует взаимодействовать. Зачем вам это знать?