相关疑难解决方法(0)

我不知道这个简单的交易我可能做错了什么,但它不起作用:

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

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

有什么建议？

编辑: - 我也试过单引号