Wie kann ich den Typ einer gesegneten Referenz in Perl bestimmen?

Question

In Perl ist ein Objekt nur ein Verweis auf einen der grundlegenden Perl-Datentypen, der in eine bestimmte Klasse gesegnet wurde. Wenn Sie die Funktion ref() für einen nicht geblendeten Verweis verwenden, wird Ihnen mitgeteilt, auf welchen Datentyp der Verweis verweist. Wenn Sie jedoch ref() für eine gesegnete Referenz aufrufen, wird der Name des Pakets zurückgegeben, in das die Referenz eingefügt wurde.

Ich möchte den tatsächlichen zugrunde liegenden Typ der gesegneten Referenz kennen. Wie kann ich das feststellen?

Answer 1

Scalar::Util::reftype() ist die sauberste Lösung. Das Modul Scalar::Util wurde dem Perl-Kern in Version 5.7 hinzugefügt, ist aber für ältere Versionen (5.004 oder höher) von CPAN verfügbar.

Sie können auch die Sonde mit 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 

Offensichtlich würden Sie haben auch für ARRAY und SCALAR Typen zu überprüfen. Das Modul UNIVERSAL (das als Basisklasse für alle Objekte dient) ist seit Perl 5.003 Teil des Kerns.

Eine andere Möglichkeit - einfach, aber ein wenig schmutzig - ist die Referenz zu string. Unter der Annahme, dass die Klasse stringification nicht überlastet werden Sie so etwas wie Class=HASH(0x1234ABCD) zurück, die Sie analysieren können den zugrunde liegenden Datentyp zu extrahieren:

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

Answer 2

Und mein erster Gedanke war: "Objekte in Perl sind immer Hash-Refs, also was zum Hack?"

Aber Scalar :: Util :: reftype ist die Antwort. Danke, dass Sie die Frage hier gestellt haben.

Hier ist ein Code-Schnipsel, um dies zu beweisen .. (falls es irgendjemanden von Nutzen ist).

 
$> 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"'` 

Ausgang:

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

Answer 3

Sie sollten wahrscheinlich nicht tun. Der zugrunde liegende Typ eines Objekts ist ein Implementierungsdetail, mit dem Sie sich nicht anlegen sollten. Warum willst du das wissen?