perlのif分で文字列が正しく評価出来ない

Question

#!/bin/perl

$aaa=".0.1";
$bbb=".0.2";

if ( $aaa == $bbb ){
        print "[$aaa] & [$bbb] is equal\n";
}

結果：
[.0.1] & [.0.2] is equal

何故イコールとなるのかわかりません。
元々はipの比較をしていました。

Answer 1

==は数値比較演算子なので、それぞれを数値に変換してから比較します。先頭から数値として解釈できるのはどちらも".0"なので0 == 0で真になります。

文字列として比較したい場合は、文字列比較演算子eqを使ってください。

Comments

[ustst]

シェルで覚えていたので、すっかり勘違いしていました。
早速のご回答ありがとうございました。

Answer 2

perlに於いて==は数値比較専用の演算子です。
$a==$bを評価する場合、perlは$a $bをそれぞれ数値に変換しようとします。
文字列を数値化する際、perlは文字列の左から数値として解釈可能な部分だけを見て、残りは切捨ててしまいます。

次のようにすれば何が起こっているか分かるでしょう。

#!/bin/perl

$aaa=".0.1";
$bbb=".0.2";

print '$a is treated as ', $aaa+0, "\n";
print '$b is treated as ', $bbb+0, "\n";

if ( $aaa == $bbb ){
        print "[$aaa] & [$bbb] is equal\n";
}

".0.1" .2はもはや数値として解釈できないとして切捨てられるわけです。

Comments

[ustst]

シェルで覚えていたので、すっかり勘違いしていました。
早速のご回答ありがとうございました。

Answer 3

Perlの==は数値比較専用の演算子です。文字列比較にはeqを使ってください（perldoc）。

Comments

[ustst]

シェルで覚えていたので、すっかり勘違いしていました。
早速のご回答ありがとうございました。