sinkin' in the rain - Perlの==とeq

Perlの==とeq 簡単な実験をしてたら、勘違いが判明。Perlではリファレンスを文字列として扱うと、"変数型(ポインタ)“みたいな値になる。 C:\> perl -e "$h = {}; $s = qq($h); print qq($h, $s);" HASH(0x275ea0), HASH(0x275ea0)じゃあ、これをeqと==で比較したらどうなるか。「Perlで文字列を比較する時は==じゃなくeq」というのは良く知られてると思う。==で文字列を比較すると、何でもかんでも一致してしまう。例えば、以下の例では空文字列と'abcd'が一致とか、結構ずいぶん。 C:\>perl -e "print ('' == 'abcd' ? 'equal' : 'not equal');" equalこれがeqで比較するとnot equalになるので、てっきり「==は同値、eqは型まで一致」とチェ

[kits]

==は数値としての比較。"001" == " 1 " は真。/ リファレンスはコンテキストで数値にも文字列にもなる。"$ref" が HASH(0x660ef8) なら 0+$ref は 6688504

[pyawk]

比較演算子は奥が深い