Warum kann ich Zeilen in Perl nicht vergleichen?

Question

Ich weiß nicht, was ich mit dieser einfachen Transaktion wurde falsch machen könnte, aber es funktioniert nicht:

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

Ich mag im Grunde weiß, wie die Benutzereingabe zu testen. Dieses kleine Stück Code wird für mich nicht funktionieren. Ich versuche nur $ans zu drucken, wenn y vom Benutzer eingegeben wird.

Irgendwelche Vorschläge?

EDIT: - Ich habe auch einfache Anführungszeichen versucht

Answer 1

Sie machen ein paar Dinge falsch.

(1) Verwenden Sie nicht den Diamant-Operator (<>), wenn Sie möchten <STDIN>. Der Diamant-Operator liest auch Dateien von @ARGV, die Sie wahrscheinlich nicht möchten.

(2) $ ans wird nie gleich "y" sein, es sei denn, Sie chomp es zuerst. Es wird am Ende eine neue Zeile haben.

Answer 2

Haben Sie versucht:

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

?

Answer 3

Obwohl Ihre direkte Frage beantwortet wurde, können Sie auf Alternativen aussehen wollen wie

Answer 4

Ein Allheilmittel für Variablen mysteriöser Inhalt:

use Data::Dumper; 
$Data::Dumper::Useqq = 1; # show newlines, tabs, etc in visible form 
$Data::Dumper::Terse = 1; 
print '$ans is really: ', Dumper($ans);