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

Question

我不知道这个简单的交易我做错了什么，但它不起作用：

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

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

有什么建议吗？

编辑： - 我也试过单引号

Answer 1

你做错了几件事。

（1）当你想要<！> lt; STDIN <！> gt;时，不要使用菱形算子（<！> lt; <！> gt;）。钻石操作员还将从@ARGV中读取您可能不想要的文件。

（2）$ ans永远不会等于<！>“y <！>”;除非你先扼杀它。它最后会有一个换行符。

Answer 2

对于神秘内容变数的一切治愈：

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 3

虽然您的直接问题已得到解答，但您可能需要查看 Term ::的readline

Answer 4

你试过了吗？

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