我不知道这个简单的交易可能做错了什么，但它不起作用：
print "OK? (y or n)\n";
$ans = <>;
print "\n";
if($ans eq "y"){print $ans;}
我基本上想知道如何测试用户输入。这点代码对我来说不起作用。我只是想打印$ans if y由用户输入。
有什么建议么？
编辑：-我也尝试过单引号
你做错了几件事。
(1) 当您需要 时，不要使用菱形运算符 ()。钻石操作员还会从 @ARGV 读取文件，您可能不希望这样做。
(2) $ans 永远不会等于“y”，除非你先 chomp 它。它的末尾会有一个换行符。
本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)
