Почему я не могу сопоставить свою строку из стандартного ввода в Perl?

Question

Почему мой скрипт не будет работать правильно?

Я слежу за видео на YouTube и работаю на этого парня.

Я запускаю Perl в Windows, используя ActiveState ActivePerl 5.12.2.1202

Вот мой крошечный крошечный блок кода.

print "What is your name?\n";
$name = <STDIN>;
if ($name eq "Jon") {
print "We have met before!\n";
} else {
print "We have not met before.\n";
}

Код автоматически переходит к оператору else и даже не проверяет оператор if.

Answer 1

Оператор $name = <STDIN>; читает из стандартного ввода и включает завершающий символ новой строки "\n".Удалите этот символ, используя функцию chomp:

print "What is your name?\n";
$name = <STDIN>;
chomp($name);
if ($name eq "Jon") {
  print "We have met before!\n";
} else {
  print "We have not met before.\n";
}

Answer 2

Хитрость в программировании - узнать ваши данные.Когда что-то идет не так, как вы ожидаете, посмотрите на данные, чтобы увидеть, соответствуют ли они вашим ожиданиям.Например:

 print "The name is [$name]\n";

Вы ставите фигурные скобки вокруг него, чтобы увидеть любые дополнительные пробелы, которые могут быть там.В этом случае вы бы увидели:

The name is [Jon
]

Это ваша подсказка, что есть дополнительные вещи.Поскольку eq должен точно соответствовать, он не может соответствовать.

Если вы только начинаете с Perl, попробуйте Learning Perl .Это намного лучше, чем случайные видео с YouTube.:)

Answer 3

Когда вы читаете имя стандартного ввода как $name = <STDIN>;

$name будет иметь завершающий символ новой строки.Поэтому, если я введу foo, $name будет иметь foo\n.

Чтобы избавиться от этой новой строки, вы можете использовать функцию chomp как:

chomp($name = <STDIN>);