perl - 'ne' 在 do-while 循环中不起作用，而 '!=' 起作用

Question

我不确定自己犯了什么错误，但我只是更改了 ne至 !=它奏效了。

这是一个简单的程序，让用户猜测一个数字，直到他们命中目标数字。

#!/usr/bin/perl

my $guess = 1;

do {
    $guess = <STDIN>;
} while ( $guess != 12 ) ; # it doesn't work if i replace != with ne

say "you guessed ", $guess;

Answer 1

Perl 的 ne是字符串不等运算符，所以 $guess和 12被视为字符串。

通过 <> 获得的字符串最后包含一个换行符，所以它不等于字符串 '12' .
!=是数字不等运算符，因此两个操作数都被视为数字。在这种情况下，Perl 将在进行转换时忽略任何尾随的非数字字符，因此会忽略换行符和字符串 12<newline>。被视为数字 12 .

你要吗chomp比较前得到的值，ne运算符(operator)也可以工作。