2

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

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

我基本上想知道如何测试用户输入。这一点代码对我不起作用。我只是想打印用户$ans输入y的内容。

有什么建议么？

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

4

4 回答 4

14

你做错了几件事。

(1) 在需要 <STDIN> 时不要使用菱形运算符 (<>)。菱形运算符还将从 @ARGV 读取文件，您可能不想要这些文件。

(2) $ans 永远不会等于“y”，除非你先把它剁碎。最后会有一个换行符。

于 2009-03-03T21:28:51.847 回答
5

神秘内容变量的万灵药：

use Data::Dumper;
$Data::Dumper::Useqq = 1; # show newlines, tabs, etc in visible form
$Data::Dumper::Terse = 1;
print '$ans is really: ', Dumper($ans);
于 2009-03-04T03:21:43.123 回答
1

尽管您的直接问题已得到解答，但您可能希望查看诸如Term::Readline 之类的替代方案

于 2009-03-04T01:09:09.290 回答
-1

你有没有尝试过：

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

?

于 2009-03-03T21:27:00.713 回答