为什么我在比较 Perl 中输入的行时遇到问题？

Question

我不知道这个简单的事务我可能做错了什么，但它不起作用：

print "OK? (y or n)\n";
$ans = <>;
print "\n";
if($ans eq "y"){print $ans;}

我基本上想知道如何测试用户输入。 这点代码对我来说不起作用。 如果用户输入了 y，我只是尝试打印 $ans 。

有什么建议么？

编辑：-我也尝试过单引号

Answer 1

你有没有尝试过：

if($ans eq 'y'){print $ans;}

？

Answer 2

尽管您的直接问题已得到解答，但您可能需要查看替代方案，例如 Term::Readline

Answer 3

解决神秘内容变量的万能药：

use Data::Dumper;
$Data::Dumper::Useqq = 1; # show newlines, tabs, etc in visible form
$Data::Dumper::Terse = 1;
print '$ans is really: ', Dumper($ans);

Answer 4

你做错了几件事。

(1) 当您需要时，不要使用菱形运算符 (<>)。 钻石操作员还会从 @ARGV 读取文件，您可能不希望这样做。

(2) $ans 永远不会等于“y”，除非你先 chomp 它。 它的末尾会有一个换行符。