ＰＥＲＬの「!=」と「=~」 or 「if」と「unless」必ずしも真反対の意味ではない？

下記コードは、同じ意味だと思っていたのですが、
実行すると違った結果が表示されます。
何故でしょうか?

my $string = 'A-test';
unless($string =~ m/-Hoge/){print '=~>',$string;}
if($string != m/-Hoge/){print '!=>',$string;}

No.1 回答者： okmotokun 回答日時： 2009/06/24 22:16

違います。

unless($string =~ m/-Hoge/){print '=~>',$string;}
　↑ 変数 $stringに文字列 「-Hoge」 が無かったら { }内を実行する
if($string != m/-Hoge/){print '!=>',$string;}
　↑ 変数 $stringの値と $_=~/-Hoge/マッチング結果（真/偽）が不等だったら{ }内を実行する。（この場合、マッチング結果は「偽」で式が成立しない）
したがって、
【結果】 =~>A-test

この回答へのお礼

回答いただきありがとうございます。
そうですね。勘違いしていました。

お礼日時：2009/06/24 22:47

No.2 ベストアンサー 回答者： kirikirkaz 回答日時： 2009/06/24 22:29

if($string != m/-Hoge/){print '!=>',$string;}

でなくて
if($string !~ m/-Hoge/){print '!=>',$string;}
だと思います。

この回答へのお礼

回答いただきありがとうございます。
あ！そうですね。
そうでした！

お礼日時：2009/06/24 22:46