我應該如何比較Perl引用？

Question

我想檢查兩個引用是否指向同一個對象。看來我可以簡單地使用

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

在perlref提及，但我依稀記得看到了同樣的目的而使用的一些功能。我有什麼理由不應該使用簡單的數字相等性測試？

注意我只想知道引用是否指向完全相同的對象。我不想找到一種方法來比較對象的內容。

Answer 1

參考，默認情況下，numify他們的地址。這些參考地址對於每個參考都是唯一的，所以它通常可用於平等檢查。

但是，在您展示的代碼段中，首先必須確保$ref1和$ref2實際上都是引用。否則，由於包含引用地址的常規標量，您可能會得到不正確的結果。

此外，沒有什麼保證引用numify到他們的地址。例如，對象可以使用重載來影響它們在不同情況下返回的價值。

比確定數值相等時直接比較引用更穩定的方法是使用Scalar::Util提供的refaddr函數，確保雙方實際上都是引用。

Answer 2

你正在尋找的功能是從Scalar::Util refaddr（保證值進行比較後真的是引用）：

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

我必須假設你的#comment關於平等測試是多麼便宜（=快）是有原因的。鑑於此，您應該繼續使用便宜的平等測試。這是很快快，比eq快得多，更不用說比任何形式的深度比較。

有可能直接或間接超載==運算符的對象可能爲了自己的目的篡奪測試。但如果它是這樣做，你甚至可能更喜歡它的中介答案。

你採取的方法可能取決於你對對象的類的瞭解。適用於一般情況的方法對於特定情況並不總是最佳的。你對某件事瞭解得越多，就越能優化它 - 反之亦然。

所以，如果你知道，你沒有使用一個適用的重載類，沒有理由去牽扯一個非內置的庫函數，公平的理由不是。如果你不知道超載，或者你知道它並且不希望它適用，那麼也許採取緩慢的方法。

只要你知道瞭解重載問題，認爲一種方法是正確的，另一種錯誤是錯誤的。每個都有其目的。如果你做的事情總是錯誤的，那麼這個操作將被禁止或者至少受到警告。

你會注意到它是而不是如此標記。