¿Cómo debo comparar las referencias de Perl?

Question

Quiero comprobar si dos referencias apuntan al mismo objeto. Parece que puedo simplemente usar

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

como se menciona en perlref, pero vagamente recuerdo haber visto el uso de alguna función para el mismo propósito. ¿Hay alguna razón por la que no deba usar la simple prueba de igualdad numérica?

Nota: solo quiero saber si las referencias apuntan exactamente al mismo objeto. No busco una manera de comparar el contenido del objeto (s).

Answer 1

referencias, por defecto, numify a sus direcciones. Esas direcciones de referencia son únicas para cada referencia, por lo que a menudo se pueden usar en las verificaciones de igualdad.

Sin embargo, en el fragmento que mostró, primero debe asegurarse de que tanto $ref1 como $ref2 son referencias reales. De lo contrario, podría obtener resultados incorrectos debido a escalares regulares que contienen direcciones de referencia.

Además, nada garantiza referencias para numerar a su dirección. Los objetos, por ejemplo, pueden usar la sobrecarga para influir en el valor que devuelven en diferentes contextos.

Una manera más sólida que comparar referencias directamente para la igualdad numérica sería usar la función refaddr proporcionada por Scalar::Util, después de asegurarse de que ambos lados en realidad son referencias.

Answer 2

La función que busca es RefAddr de Scalar::Util (después de asegurarse de que los valores que se comparan son en realidad referencias):

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

Tengo que suponer que su #comment acerca de qué tan barata (= rápida) es la prueba de igualdad estaba allí por una razón. Dado eso, probablemente deberías seguir usando la prueba de igualdad económica. Es muy rápido, mucho más rápido que eq, y mucho menos que cualquier tipo de comparación profunda.

Es posible que un objeto con un operador == directa o indirectamente sobrecargado pueda usurpar la prueba para sus propios fines. Pero si es haciendo eso, incluso podría preferir su respuesta mediada.

El enfoque que tome puede depender de lo que sepa sobre las clases del objeto. Los enfoques que se aplican a casos generales no siempre son óptimos para casos específicos. Cuanto más sepa sobre algo, más podrá optimizarlo, y al revés también.

Si sabe sabe que no está utilizando una clase con sobrecarga aplicable, no hay razón para ir arrastrando una función de biblioteca no incorporada, y justa razón para no hacerlo. Si no sabe sobrecarga, o si lo sabe y no quiere que se aplique, entonces tal vez tome el enfoque lento.

Siempre y cuando entienda las preocupaciones de sobrecarga, es un error considerar que un enfoque es correcto y otro es incorrecto. Cada uno tiene su propósito. Si siempre estuvo mal hacer lo que está haciendo, entonces esa operación estaría prohibida o al menos advertida.

Notará que es no así marcado.