perl - 为什么 eq 不能处理我的字符串输入？

Question

刚开始学习 Perl，即学习程序流程 - 评估字符串和数字以及使用适当的运算符之间的主要显着差异。简单的脚本，我这里有让我发疯，因为它是一个 super 简单的 if else 语句，该语句应该在输入“mike”时运行并且不起作用。它改为输出 else 语句。请帮忙

#!C:\strawberry\perl\bin\perl.exe

use strict;
#use warnings;
#use diagnostics;

print("What is your name please?");
$userName = <STDIN>;


if($userName eq "mike"){
    print("correct answer");
}
else{
    print("Wrong answer");
}

Answer 1

从 STDIN 获取值后，尝试添加对 chomp 的调用:

$userName = <STDIN>;
chomp($userName);

因为从 STDIN 读入的值最后会有一个换行符。 chomp() 内置函数将删除字符串末尾的换行符。