Wie sollte ich Perl-Referenzen vergleichen?

Question

Ich möchte prüfen, ob zwei Referenzen auf dasselbe Objekt verweisen. Es scheint, ich kann einfach verwenden

if ($ref1 == $ref2) { 
 # cheap numeric compare of references
 print "refs 1 and 2 refer to the same thing\n";
}

wie erwähnt in perlref aber ich erinnere mich vage daran, eine Funktion für den gleichen Zweck gesehen zu haben. Gibt es einen Grund, warum ich nicht den einfachen numerischen Gleichheitstest verwenden sollte?

Beachten Sie, dass ich nur wissen möchte, ob die Verweise auf genau dasselbe Objekt verweisen. Ich suche nicht nach einer Möglichkeit, den Inhalt des Objekts/der Objekte zu vergleichen.

Answer 1

Verweise werden standardmäßig zu ihren Adressen nummeriert. Diese Referenzadressen sind für jede Referenz eindeutig, so dass sie oft bei Gleichheitsprüfungen verwendet werden können.

In dem von Ihnen gezeigten Ausschnitt müssen Sie jedoch zunächst sicherstellen, dass beide $ref1 y $ref2 sind eigentlich Referenzen. Andernfalls könnten Sie falsche Ergebnisse erhalten, da reguläre Skalare Referenzadressen enthalten.

Außerdem gibt es keine Garantie dafür, dass Verweise auf ihre Adresse nummeriert werden. Objekte können zum Beispiel durch Überladen den Wert beeinflussen, den sie in verschiedenen Kontexten zurückgeben.

Ein soliderer Weg, als Referenzen direkt auf numerische Gleichheit zu vergleichen, wäre die Verwendung der refaddr Funktion, wie sie von Scalar::Util nachdem Sie sich vergewissert haben, dass beide Seiten tatsächlich Referenzen sind.

Answer 2

Die Funktion, die Sie suchen, ist refaddr von Skalar::Util (nachdem sichergestellt wurde, dass es sich bei den zu vergleichenden Werten tatsächlich um Referenzen handelt):

use Scalar::Util 'refaddr';

if ($obj1 and ref($obj1) and $obj2 and ref($obj2) and
    refaddr($obj1) == refaddr($obj2))
{
    # objects are the same...
}

Answer 3

Ich muss davon ausgehen, dass Ihr #comment darüber, wie billig (=schnell) der Gleichheitstest ist, war nicht ohne Grund da. In Anbetracht dessen sollten Sie wahrscheinlich weiterhin den billigen Gleichheitstest verwenden. Er ist sehr schnell, viel schneller als eq geschweige denn als irgendeine Art von tiefem Vergleich.

Es ist möglich, dass ein Objekt mit einer direkt oder indirekt überladenen == Der Betreiber könnte den Test für seine eigenen Zwecke missbrauchen. Wenn er aber est Wenn Sie das tun, werden Sie vielleicht sogar seine vermittelte Antwort vorziehen.

Welchen Ansatz Sie wählen, kann davon abhängen, was Sie über die Klassen des Objekts wissen. Ansätze, die für allgemeine Fälle gelten, sind für spezielle Fälle nicht immer optimal. Je mehr Sie über etwas wissen, desto mehr können Sie es optimieren - und umgekehrt.

Wenn Sie also wissen dass Sie keine Klasse mit anwendbaren Überladungen verwenden, gibt es keinen Grund, eine nicht gebaute Bibliotheksfunktion einzuschleppen, und einen guten Grund, es nicht zu tun. Wenn Sie nicht über das Überladen wissen, oder Sie wissen über sie und wollen nicht, dass sie gelten, dann vielleicht nehmen Sie die langsame Ansatz.

Solange Sie verstehen. Es ist ein Fehler, den einen Ansatz für richtig und den anderen für falsch zu halten. Jede hat ihren Zweck. Wenn es immer falsch wäre, das zu tun, was Sie gerade tun, dann wäre dieser Vorgang entweder verboten oder es würde zumindest davor gewarnt.

Sie werden feststellen, dass es sich um no so gekennzeichnet.