为什么这会失败？ Perl字符串比较

Question

我想要一个简单的想要在我的pl脚本中继续对话。它看起来像这样：

print "continue? (Y/n)\r\n";
$ans = <>;
if("$ans" eq "n"){
    print "$ans";
    exit 0;
}
print "still here";

如果我写了一个n，它没有输入if语句，为什么？退出0;退出程序的正确方法？如果我只是打印$ ans变量，它会输出我键入的n

Answer 1

使用它：

chomp $ans;

你应该剥开\ n

演示：

print "continue? (Y/n)\r\n";
$ans = <>;
chomp $ans;
if("$ans" eq "n"){
    print "$ans";
    exit 0;
}
print "still here";