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

Question

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

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

如果我写了它没有输入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";