Vergleichsoperator für Objekte - #112064 (Allgemeines zu Perl)

moritz

2008-07-13 23:42

User since
2007-05-11
923 Artikel
HausmeisterIn

Man sollte noch dazusagen, dass beides eventuell nicht funktioniert, wenn "" bzw. 0+ überladen ist. Was immer funktionieren müsste ist folgendes:

Code (perl): (dl )

use Scalar::Util qw(refaddr);
if (refaddr($obj1) == refaddr($obj2)){
     ...
}