Почему eq не работает со строковым вводом?

Question

Только начал изучать Perl, а именно, изучить поток программы - основные заметные различия между оценкой строк и числа и использованием соответствующих операторов. Простой скрипт, я здесь, сводит меня с ума, поскольку это супер простое, если другое заявление, которое должно быть введено в «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

Когда я прочитал ваш вопрос, я думал, что у вас будет проблема со строками и числовыми значениями на равных. Рассмотрим следующий случай:

#!/usr/bin/env perl 

use strict; 
use warnings; 

print("What is the meaning of life, the universe and everything? "); 
chomp(my $response = <STDIN>); 

if ($response == 42) { 
#if (42 ~~ $response) { 
    print "correct answer\n"; 
} else { 
    print "Wrong answer\n" ; 
} 

Попробуйте два разных заявления if. Ответьте на что-нибудь хорошее, как family и посмотрите, что произойдет. ~~ - это смарт-оператор, который помог решить эту проблему в Perl. Узнайте больше об этом here (под «умным согласованием в деталях»). Также обратите внимание на встроенное использование оператора chomp.

Answer 2

Попробуйте добавить вызов грызть после получить значение из STDIN:

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

Поскольку значение прочитанная из STDIN будет иметь символ новой строки на конце. Встроенный chomp() удалит новую строку из конца строки.