为什么会失败？ 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";