Почему это не удается? Сравнение строк в Perl

Question

Я хочу, чтобы вы просто хотели продолжить диалог в моем скрипте pl. Это выглядит так:

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

Если я пишу n, он не вводит оператор if, почему? Выход 0; правильный способ выхода из программы ?. Если я просто напечатать переменную $ анс она печатает п, что я напечатал

Answer 1

использовать это:

chomp $ans; 

вы должны раздеться \ п

Демо:

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